DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


| ‘13 [ 
| **F 1LE®*1D**DBGPARSER - 
DDDDDDDD BBBBBBBB GGGGGGGG PPPPPPPP AAAAAA RRRRRRRR SSSSSSSS EEEEEEEEEE RRRRRRRR 3 
DDDDDDDD BBBBBBBB GGGGGGGG PPPPPPPP AAAAAA RRRRRRRR SSSSSSSS EEEEEEEEEE RRRRRRRR é 
DD DD 68 BB GG dig PP AA AA RR RR SS EE RR PR 3 
0D DD 6B BB GG PP PP AA AA RR RR SS EE RR RR $ 
DD DD 68 BB GG PP PP AA AA RR RR SS EE RR RR 3 
DD DD 68 BB GG PP AA AA RR RR SS EE RR aa 3 
DD DD e8B88888B8 GG PPPPPPPP AA AA RRRRRRRR SSSSSS EEEEEEEE RRRRRRRR 3 
DD DD 88888888 G PPPPPPPP AA AA RRRRRRRR SSSSSS EEEEEEEE RRRRRRRR 3 
DD DD BB GG GGGGGG PP AAAAAAAAAA RR RR SS EE RR RR 3 
DD DD 68 BB GG GGGGGG PP AAAAAAAAAA RR RR SS EE RR RR 3 
DD DD 68 BB GG GG PP AA AA RR RR SS EE Re RR eves é 
DD DD 68 BB GG GG PP AA AA RR RR SS EE RR RR vend 3 
DDDDDDDD BBBBBBBB GGGGGG PP AA AA RR RR SSSSSSSS EEEEEEEEEE RR Re sone $ 
DDDDDDDD BBBBBBBB GGGGGG PP AA AA RR RR SSSSSSSS EEEEEEEEEE RR RR eoee F 
LL III111 SSSSSSSS ; 
LL III111 SSSSSSSS 3 
LL II ss $ 
LL II SS 3 
LL I] SS 3 
LL I] ss 3 
LL Il SSSSSS 3 
LL II SSSSSS 3 
LL Il ss 3 
LL I] SS PY 
LL I] SS 3 
LL I] ss 3 
LLLLLLLLLL T1111] SSSSSSSS 3 
LLLLLLLLLL HI111 SSSSSSSS F 
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; 1 } p MODULE DBGPARSER (IDENT = ‘v04-000') = : 
3 5 008 : BEGIN : 
: 5 B98? : ROAR RRAAARAAAAAAAEAEAAAEAAAAAAARAAATETAAA AAA AEAAAEAEAAAAAAAAAAAAHERERAAAAA EL : 
3 'e * 3 
3 5 0007 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * $ 
rf 0008 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . ; 
: 1% Ba08 : - ALL RIGHTS RESERVED. * - 
; ! * 3 
3 11 0011 1 !* THIS SOFTWARE id FURNISHED UNDER A LICENSE AND MAY BE USED AND copree * 3 
; 1g B36 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICE SE AND WITH THE * 3 
co 1 1 !* INCLUSION OF THE ABOVE tgp NOTICE. THIS SOFT WARE OR ANY OTHER * 3 
oo 0014 1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * F 
3; § 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 
3 18 pots : 7 TRANSFERRED. * 3 
g ‘® ® D4 
. 0018 1 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
s 19 0019 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
; $9 Bo5t : :* CORPORATION. * 3 
; '® * 3 
: $$ it) 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR SEL IABELETY OF ITS * 3 
; 00 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL ” 3 
; «£6 0024 1 I! * s 
ae 0025 1 !* * 3 
3 26 0026 1 VeRO RARER AAA AAAAAAAAAAAAEAAAAAAAEAEEAAAAAAAAAEAAAAAKERARAAAAAKKAAAERE RES P+ 
. ae 0027 1! 3 
; «628 $058 1 ! WRITTEN BY F 
3 $9 0029 1! Bert Beander February, 1982 3 
; 0 0030 1! 3 
> 0031 1 ! MODIFIED BY 3 
22 4 1! Rich Title Added code and tables needed to 3 
oe 0033 1! : support BLISS, CRO. : 
; 0034 1! Ping Sager Added code and tables needed to 3 
; 3 0035 1! support PASCAL. 3 
; #656 0036 1! Walter Carrell III Update DBGS$GL CURRENT PRIMARY for 3 
; i 0037 1! self_referential records i 
; 38 0038 1! Brad Becker Added tables and support for 3 
; | O39 0039 1! Built-in functions. 3 
; 40 0040 1! 3 
s 641 0041 1! 3 
3 ri} 0042 1 ! MODULE ryncr ion 3 
3; § 0css 1! This module contains the lLanguage-independent lexical scanner and : 
; «644 0044 1! parser used to scan and parse both address expressions and language 3 
, BR ee 7 f expressions for all languages. It also contains all the parses tables 3 
3 . Boe$ ’ needed to scan and parse each of the languages supported EBUG. : 
; | «648 0048 1 3 
3 $3 rts ' REQUIRE ‘SRC$:DBGPROLOG.REQ'; i 
s $1 61 4 1 LIBRARY ‘LIB$:DBGGEN.L32'; 3 
3 26 0185 1 i 
> e 9196 1 FORWARD ap ; 
; «654 0187 1 AAA VALUE. ! Dummy routine--does nothing, not used i 
3 55 Bigs 1 DBCSADDR, ixp ! Address Expression Interpreter driver i 
; 56 189 1 DBGSBUILB PRIMARY. SUBNODE: NOVALUE, ! Build a Primary Descriptor Sub-Node i 
; 57 0190 1 pBGsEKPe INT, ' Expression Interpreter driver routine i 
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GPARSER 16-Sep-1984 :10: AX-11 Bliss-32 V4.0-74 Page 2 
vos 12-8681 38c 93:19:45 DEBUG. SRC JDBGPARSER.B32;1 . (1) \ 
3 28 191 1 DBGSEXPRESSION_PARSER, ! Parser to parse Language expressions 
3 9 136 1 DBGSGET_BIF_ARGUMENTS, ' Parse and pick up built-in function argument List 
; @& 195 1 DBGSLEXTCAL-SC . ' Lexical scanner for all languages 
3; «6) 194 1 DBGSPARSER SET LANGUAGE: NOVALUE, ! Set Language tables for parser 
3 6¢ 195 1 DBGSPRIMARY_PARSER: NOVALUE, ! Parser to parse a primary symbol 
; 6 138 1 PPEND_TO_PATHNAME: NOVALUE, ! Append a name to Pathname Descriptor 
3; & 0197 1 CHECK _OPSCOPE ! Go upscope from record component 
; 65 0198 1 CONSTANT TO_VALDESCR, i Build Value Descriptor for a constant 
; & 1 1 CREATE_OPERAND_ TOKEN, ! Create a Token Entry for an operand 
3; Of 0200 1 CREATE_OPERATOR_TOKEN, ! Create a Token Entry for an operator 
; «668 0201 1 CREATE_PRID_CONSTANT, ! Create a Predefined Identifier Constatn 
3 9 8 §¢ 1 : value descriptor 
3 0 0S 1 DUMP_OPERATOR: NOVALUE, ' Dump an operator being evaluated 
; 0204 1 DUMP_TOKEN: NOVALUE, : Dump a Token Entry prog Ses | 
; Fs 0205 1 DUMP PRIMARY: NOVALUE ! Dump a Primary or Value Descriptor 
ie 0206 1 1X_UP_PRIMARY: N ' Fix up a Primary with subscripts 
3 74 0207 1 GET-BLISS_ SUBSCRIPTS: NOVALUE, ' Pick up BLISS oubece inte 
MSPS 0208 1 GET-DEREFERENCE: NOVALUE, ' Do a derefence (PASCAL “ operator) 
; 0209 1 GET_FIELDREF: NOVALUE, ! Pick up field reference X<p,s,e> 
oi a 0210 1 GET_RECORD_COMPONENT: NOVALUE, ! Do record component selection 
; 0211 1 GET_RECORD_VARIANT, ! Search a set of record variants for 
3; O8i§ 1 : a specified record component 
; & 021 1 GET_SET_ CONSTANT, ! Parse and pick of set constants 
; 0214 1 GET-SUBSCRIPTS: NOVALUE, ! Parse and pick of array subscripts 
; 682 0215 1 GET SUBSTRING: NOVALUE, ! Parse and pick up substring reference 
; 8 beig 1 OPERATOR_TO_RESTORE_RADIX, ! Returns operator to restore radix 
; BG 0217 1 PATHNAME TO PRI P ' Construct Primary Descr from pathname 
: 85 0218 1 RESOLVE _COMPONENT, ' Attempt to resolve possibly 
; 0219 1 : ambiguous record references. 
; wr 0220 1 SAVE_SUBSCRIPTS: NOVALUE, ' Save away subscripts : 
; 88 0221 1 SCAN_QUOTED_STRING: NOVALUE; ! Scan a quoted character string 


Be Se Se Oe Be Oe Oe Se Se Se FH Se Se Be Be Se Se SH Se Se Se Se Se Se Se Se Be Se Oe Ss Ge Se Se Se Se Se Se SH Be Se Se Se Se HSH Se Se Se Se Se Se Se Se oe Oe Se we 
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DBGSDUMP_HER: NOVALUE, 
DBGSENUM_POS, 

DBGSENUM~ VAL 
DBGSEVALOP_SET_LANGUAGE: NOVALUE, 
DBGSEVAL_ABA_ TICK 
DBGSEVAL_ADDR_OPERATOR, 
DBGSEVAL~LANG OPERATOR, 

DBGSGET TEMPMEM, 


HASA_FIND, 
DBGSHASH"F IND. SETUP: NOVALUE, 
DBGSPERFORM TYPEID CHECK, 
DBGSMAKE_ SKELETON DESC, 
DBGSMAP_BTYPE CLASS 
DBG$NCOB_PATHBDESC_TO_CS: NOVALUE, 
DBGSNCOPY_DESC 

DBGSNEWLINE: NOV 


DBGSSTA-SYMTYPE: NOVALUE, 
DBGSSTA“SYMVALUE ; NOVALUE , 


“TYP~ : NOVALUE 
DBG$STA-TYP VARIANT |C 


OMP: NOVALUE, 
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yOe-000 ersee- 488s PS:19:hs «| PANEL Shissese NeeO-78s aoe 55 | 
COTE cO RTA CENGTH Length in bits of data in VMS descri | 
engt n ts o ata in V t 
DBGSDEF SYM. FINO, Look up DEFINEd symbol pmarteyes 


Dump a memory block in hexadecimal 
Convert enum val=> enum position 
Convert enum pos=> enum val 

Sets up Operator Information Tables 
Evaluate an Ada Tick operator 

valuate an Address Expr. operator 
Evaluate a language expr. operator 
Get a temporary memory bloc 
Look up symbol in RST Hash Table 

Set up call on DBGSHASH_F IND 

Check type consistency Tn set constant 
Make skeleton Value or Primary Descr. 
Given DTYPE, do a best guess at the CLASS 
Pathname to COBOL string 

Copy a descriptor 

Close print Line and start new Line 
Convert Pathname Descr to ASCI 
Return the length of a given dtype 
Convert Primary to address 

Convert Primary to Value Descriptor 
Print FAO-formatted text 

Sets up Print Information Tables 
Look up a symbol in the 

Set up current context 
Look up a symbol's size 
Look up a symbol's data type in RST 
Look up a symbol's value 
Get FCODE of a given Type ID 
Look up rey data type information 
Look up atomic data type information 
Look up descriptor type information 
Get type info for file variable 
Look up record data type information 
Look up subrange data type information 
Look up typed pointer information 
Look up record variant set information 
Look up componsi.ts of a record variant 
Construct a typeid for an array ‘ 
Construct a typeid for an atomic object 


Construct a Set Constant typeid 


Convert ASCII string to integer 


CON AUS WR OS OD NAUES WN 0 ODONOAU EWN $$ O ODNAUES WN (OO OONOUS WT 
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BEKELE & FUMIO NIPNININININININIDN 2 2 2 2 SS SS SS OOOOOCOOCOCO oO 
SOOOOCOOCOSOOSOOOSOSOSOOOSOSOOOCOOOSOS SOOO SCOSOOCSOOOOOOOOOOOOOOOOSOOOOOCOOO 
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a ee em ce ee De ee ed ed ed od wd od = 


—_—— 

DBG$GL_ARRSUB_FLAG 

9 DBGSGL-DEVELOPER: BITVECTORL), ! Developer mode control bits 

0 DBGSGL_CURRENT PRIMARY, ! Pointer to the primary being processed 
71 BGS$GB-LANGUAGE: BYTE ' Currently set Language 

re GB-MOD_PTR: REF VECTOR C,BYTEJ, | Pointer to modes 

7 DBGSGL_ORIG_COMMAND_PTR, ! Pointer to original command string 
74 DBGSGL_RECCAP_FLAG, 

75 DBG$GB"SET_BREAK_FLAG: BYTE, ' Set to TRUE during parsing of 

6 : SET BREAK command. 

7 DBGSGL_UPCASE_COMMAND PTR: VECTOR(2]; 

78 : Pointers to start and end 


DBGPARSER 
vOL-000 


OOO OOO W090 09 09 909 9 SII ISIS NNN AA AAA AAA AISI 


oo 
SGOSCOOSCOCOSOSCOSCOSOCO COCO OOCOCOSOO SOOO OOCOOOCOOOOOOOOOOOOCOOCOOOOOOoOOoOO 


RMOMORONY — tO SS PP PP PPS SP A PP YP PH SH SH Ss Ss SS Ss S Ss 9 FH SS HH 
ee ed ed ed ed dd 2d = od dd od = od 8 


ooo 


GLOBAL 
DBGSGL_CHARTBL: REF CHRTBLSTABLE; 


LIT 


ERAL 
CAR_RET = %CHAR(13), 
VARSTK_SIZE = 20; 


1 
1 
I 
t 
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of current command string 


Pointer to character table for the 


currently set language 


Carriage-return character 
Maximum nesting depth of record 
variants we allow 


! These are passed into APPEND TO_PATHNAME as the third parameter. This 
arameter tells the routine fiow to insert the name into the pathname 


e 


LIT 


OWN 


eing constructed. 


ERAL 
NOT_REC_COMP 
R mP 


COB-REC_COMP 


ADDRESS_LENGTH, 
ADDRESS_TYPE, 
BIF_TABLE: REF VECTORC,LONG), 


CASING_SIGNIF ICANT, 
CHARPTR: REF VECTORC,BYTE), 
CHARTBL: CHRTBLSTABLE, 
COMPONENTS_IN_PATHNAME , 


ENFORCE_RECORD, 


EXPRESSION_RADIX, 


IDENT_OPERATOR TABLE: 
REF VECTORC,LONG), 


INCOMPLETE_QUAL, 


MULTIPLE_SUBSCR, 


OPCHAR_OPERATOR_TABLE: 
REF VECTORC,LONG), 


PRIMARY_TABLE: REF PRIMARYSTABLE, 


Length of instruction pointed to by 
address expression (or zero) 

Address expression ‘'type’'--either 

instruction’ or ''no type’ 

Pointer to a Built-in Function table 
for the current cee e where 
the functions are identifiers. 
(SUCC, PRED) 

Set to TRUE if upper/lower casing 
is significant in names. 

Pointer to current character in input 
Line being scanned and parsed 

Character Table for current language 

Set to TRUE if the current Language 
etene up all record components 

efore calling GETSYMBOL. 

Set to TRUE if the current Language 
requires that COMP be a 
component of REC in the 
expression REC.COMP 

Radix value to be used to interpret 
constants in expressions 

Pointer to an Operator Table for the 
current Lenguage where the sym- 
bols are identifiers (NOT, AND) 

Set to TRUE if incomplete data 
qualification is allowed in 
then current language. 
ae A.C in place of A.B.C) 

Set to TRUE if mult igts subscripts 
parens (X(1,2J(5]) are allowed 

Pointer to am Operator Table for the 
current language where the sym- 

_ bols are species characters (+,**) 

Pointer to the Primary Parser State 
Table for the current language 


DBGPARSER 
vOs-008 


8 
r4 
3 
5 
5 
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SAVED_ TOKEN: 


INITIAL(O), 


STATE_TABLE: REF NUMSTSTABLE, 
SUBSCRIPT_TERM oF 


PRIDTBL: onto VECTORL, LONG 


ITIAC ET ORENSK.1T TER 
TERMINATOR LENGTH: INI 


tT 


VARSTACK1: 
VARSTACK 
VARSTACKS: 


: VECTOR 
A soins 


ECTORC,LONG), 


VARS 


J 

N 

AL 

S 

S 
VARSTK_S 


M 
TI 
VETOREVARS TR 
TK 
TK. 


VARSTK_INDEX; 


ySSeo-1986 99:10:18 


AX=-11 Bliss-32 V4.0-74 


until next call Expr. Parser 
Pointer to the Number Scanner State 
Table for the current Language 
Pointer to Terminator Table 7 use 
when picking ue p subscrip 
Pointer to Predefined identifier Table 
Terminator code for last terminator 
token found by lexical scanner 
atte in characters of last termina- 
tor found by the lexical scanner 
Stack of Variant Set RST Entry pointers 


Token +t) geet saved by Primary Parser 


' Stack of RST Variant Entry pointers 
' Stack of variant Congeoent indicies 


Current index for VARSTACKn stacks 


DEBUG. SRC JDBGPARSER.B32;1 
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(2) 
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MACROS TO GENERATE PARSE TABLES 


These macros are used to generate the parse tables used by the Lexical 
Scanner and the Parser to parse both lLanguage-independent and language- 
specific constructs accepted by DEBUG. 


CHARACTER TABLE 


Define the macros which generate the Character table. This includes the 

macros which generate the base Character Table for language UNKNOWN and 

the macros which ponerece the Character Exception Tables for the individual 

languages. The Character Exception Table for a language lists those char- 

acters which have different characteristics in that Language that the de- 

fault characteristics specified for language UNKNOWN. The Character Table 

for a language is thus formed by copying the default table ror canguege 
UNKNOWN and then overlaying the entries for those characters listed in the 
language's Character Exception Table. 


These macros are used as follows. To generate the default Character Table, 
the following sequence of macro invocations is used: 


CHAR_TABLE (TBLNAME , 
CHAR_ENT(CHAR, CLASS, BIT1, BIT2, ...) 


CHAR_ENT(CHAR, CLASS, BIT1, BIT2, ...)); 


Here TBLNAME is the name of the table to be built. The CHAR_TABLE macro 
defines the whole Character Table as a BLOCKVECTOR and causes each element 
in the vector to be filled with zeroes unless this is overridden by an 
explicit CHAR_ENT invocation for that specific character. 


The CHAR_ENT macro sets the character characteristics for a specified 
character. Here CHAR is the character itself (e.g., ‘A'), CLASS is the 
Number Scanner Character Class, and BIT1, BIT2, ... are the names of the - 
other characteristics bits to be set for this character. The CLASS param- 
eter is automatically prefixed by ‘‘NUMSTSK CLASS." by the macro. Also, 
the BITn parameters are automatically prefixed by ‘‘CHRTBL$M_"' to generate 
the proper mask value names. 


MEW —OODNOUESWN (OOO NOU SW OOD DNAUEWN "OO OONOUS WN SO 


DPDEX_EQRDXRED Pars & BB BPEL EE WWW 


To generate a Character Exception Table for a language, the following 
macro invocations are used: 


CHAR_EXCEPTION_ TABLE (TBLNAME 
CHAR_ERNTRY(CHAR, CLASS, BIT1, BIT2, ...) 


CHAR_ENTRY(CHAR, CLASS, BIT1, B1T2, ...)); 


Here CHAR, CLASS, and BIT1, BIT2, ... have the same meanings as for the 
CHAR_ENT macro above. Similarly, TBLNAME is the name given to the new 
Character Exception Table. The only difference between these macros and 
those described above is that a different data structure is generated. 


eS 
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40 ACRO 
M 209 CHAR_TABLE(TBLNAME) = 
oy OWN TBLNAME: VECTORC256,LONG] PSECT(DBGS$PLIT) PRESET(ZREMAINING) 2; 
tie ACRO 
Mm 041 CHAR ENT (CHAR CLASS) = 
a3 TCHARJ=( (ZNAME (*NUMSTSK_CLASS_",CLASS)*4) OR CHAR_FLAGS(%REMAINING)) 1%; 
s16 ACRO 
Mm 041 CHAR_FLAGSCFLAG] = 
18 ZNAME (*CHRTBLSM_',FLAG) %; 


ACRO 

M CHAR_EXCEPTION_TABLE(TBLNAME) = 

TIF TLENGTR EQL 1 

. a TBLNAME = PLIT(REP 0 OF (0)): VECTORL,LONG] 
i BIND TBLNAME = PLIT(ZREMAINING): VECTORL,LONG] 


MACRO 
CHAR_ENTRY(CHAR, CLASS) = 
THAR*24 OR £NAME(*NUMSTSK_CLASS_',CLASS)“4 OR CHAR_FLAGS(ZREMAINING) %; 


! Define fields of Character Exception Table entry. These definitions are only 
used in the DBGSPARSER_SET_LANGUAGE routine below. 


FIELD CE FLDS = 


SAWN inonononopononononon 


DWONAVUES WN $9 OONAUE WN "OC OONOUS WN oO 


SE 
CE_BITS = f 0, V.(0,24) J, ! Character characteristics bits 
+ aa = (0, 83_ j ! The character itself 


MACRO 
CE_ENTRY = BLOCK{[1,WORD] FIELD(CE_FLDS) 2%; 


OPERATOR TABLE 


et et et ot 8 = 1 OOO 
SLES 


Define the macros which generate an Operator Table for a lenquege. An Opera- 
tor Table is a counted vector (a PLIT) of longwords which point to Operator 
Lexical Token Entries for the oes osere of the language. Each pointer is 
relative to the address TABLEBASE so that the code is completely Position- 
ingepengent (PIC); the true pointer value is thus the longword value plus 


An Operator Table is generated with the following macro invocations: 


OPERATOR TABLE (TBLNAME, 
OPERATOR_ENTRY (OPNAME ,CODE ,KIND ,LEFT_PREC ,RIGHT_PREC,FLAG1,...), 


OPERATOR ENTRY (OPNAME , CODE ,KIND,LEFT_PREC,RIGHT_PREC,FLAG1,...)); 
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0 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7? 
8 
9 
0 
4 
5 
6 
7 
8 
9 
0 
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3 465 1 ! Here TBLNAME is the name of the Operator Table generated. OPNAME ig the 
3 5 rh 1: guoted character string which constitutes the operator (e.g., ‘+’, ‘:=", 
; 467 1: TAND’, “€Q.'), CODE is the name of the operation to be performed (e.g, 
3 468 1 | SUBSCRIPT, ADD; OPENPAREN=-this is outona’ reat ty prefixed by ‘‘TOKENSK_* 
3 8 8798 1! by the macro), KIND is the operator kind (PREFIX, INFIX, or POSTFIX), 

3 9 470 1 | LEFT_PREC is its Left precedence, and RIGHT_PREC is its right pcscoreeens 
: 340 0471 1! FLAGT, ... is zero or more optional peceneters which specify flag bits 

3; «341 8 1 ! to be set_in the Token Entry. Each FLAGn name is automatically prefixed 
; 34 0475 1 ! by “‘TOKENSM_"' by the macro to generate the opprepriete mask value. The 
s %% 0474 1 ! only flag af present is PRIMARY which means that the operator is an 

3 te Bee? } operator within a Primary Symbol. 

; 346 hag 1 ! The OPERATOR_ENTRY macro can also be used independently to generate an 

3 (347 0478 1 ! Operator Lexical Token Entry. It returns the address of the Operator 

; <8 0479 1 ! Lexical Token Entry it created. 

; 349 0480 1! 

3; 30 0481 1 MACRO 

5 51 4 bees 1 OPERATOR_TABLE(TBLNAME) = 

; 2§ M0483 1 Z1F ZLENGTH EQL 1 

3 2 M0484 1 THEN 

; $2¢ : tH : BIND TBLNAME = PLIT(REP 0 OF (0)): VECTORC,LONGJ 

; 320 M0487 1 BIND TBLNAME = PLIT(OP_ENT(XREMAINING)): VECTORL,LONG] 

ey) 4 0488 1 SFI %; 

3 328 0489 1 

; 359 0490 1 MACRO 

; 360 M0491 1 OP_ENTCADDRESS] = 

; 361 904 1 (ADDRESS) = TABLEBASE %; 

; 306 0493 1 

$s 56 0494 1 MACRO 

: 364 m 0495 1 OPERATOR ENTRY (OPNAME CODE ,KIND LEFT _PREC RIGHT_PREC) = 

3 6365 M0496 1 UPLIT BYTE (ZNAME (*TOKENSK_',KIND>'_OP'), 

; 366 M0497 1 ZIF ZLENGTH LEQ 5 

3 (S67 m 0498 1 XTHEN 

; 368 M0499 1 

3; 369 m™ 0500 1 ZELSE 

; 370 m 0501 1 0 OR OP_FLAGS(ZREMAINING) 

3 al M beng 1 Fl, 

; 72 m 0503 1 WORD (ZNAME(*TOKENSK_',CODE)) 

; 373 M0504 1 RIGHT PREC, LEFT_PREC, 0, 0, 6, 0,0. 0, 

> 374 0505 1 ZASCIC OPNAME) 2; 

3 $2 0506 1 

3; 376 0507 1 MACRO 

3 Ae M b208 i OP_FLAGSCFLAGNAME) = 

; 378 509 1 ZNAME (*TOKENSM_",FLAGNAME) %; 

; 379 0510 1 

3; 380 0511 1 

; «381 Bag 1 

; 5¢ 051 1 ! BUILT-IN-FUNCTION TABLE 

2 ee 

; 385 0816 1 ! Define the macros which generate an Built-in Function Table for a Language. 
; 386 0517 1 ! A Built-in Function Table is a counted vector (a PLIT) of longwords whic 
3 Ser b218 1 * point to Operand Lexical Token Entries for the Built-in Functions of the 
: 388 519 1! language. Each pointer is relative to the address TABLEBASE so that the 
; «6589 b259 1 ! code is completely Position-Independent (PIC); the true pointer value is 
; 390 521 1 ! thus the longword value plus TABLEBASE. 
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; 391 1! ; 
3 , ; ! } An Built-in Function Table is generated with the following macro invocations: : 
; 394 $25. 1! BUILT _IN_FUNCTION_ TABLE (TBLNAME, : 
3 4 82 § ! BUTLT~IN_FUNCTION_ENTRY (OPNAME , CODE), 3 
; 44 82 3 : BUILT_IN_FUNCTION_ENTRY (OPNAME , CODE); 3 
; 399 0530 1 ! Here TBLNAME is the name of the Built-in Function Table generated. OPNAME 3 
; 400 0531 1! : the quoted sperecter str ine which cones }oupes the Built-in aaa bay call 3 
; 401 05 § 1! ©-9- succ’ eeee CODE is the name of the Built-in Function to be $ 
: Pet b2 1! + ormed (e.g, ucc  baeDocthis is automatically prefixed by POKENSK r PF 
; 40 534 1! by the macro), and ARGUMENTS is the number of arguments for the Built-in 3 
; 404 0535 1! function. 3 
3; 405 b289 1! 3 
; 406 05 1 ! The BUILT_IN_FUNCTION_ENTRY macro can also be used independently to 3 
3; 407 0538 1 ! generate an Built-in Function Lexical Token Entry. It returns the 3 
; 408 0539 1 ! address of the Built-in Function Lexical Token Entry it created. PF 
; 409 0540 1! $ 
; 410 0541 1 MACRO 3 
: 411 M Bee8 1 BUILT_IN ttle a: wadnlesmeesteand F 
3 a18 M0543 #1 “IF @LE EGL 3 
3 461 M0544 #1 THEN 3 
: 414 ™ 0545 1 BIND TBLNAME = PLIT(REP 0 OF (0)): VECTORE,LONGJ 3 
: 415 M0546 1 ZELS F 
: 416 ™ 0547 1 BIND TBLNAME = PLIT(BIF_ENT(ZREMAINING)): VECTORC,LONG) $ 
s 417 0548 1 SFI 2; F 
; 418 0549 1 3 
3 6419 0550 1 MACRO 3 
; 420 M0551 1 BIF oF NTCADDRESS ® 3 
s 621 0236 1 (ADDRESS) - TABLEBASE %; 3 
3 $s6 0555 (1 3 
3 2 0554 1 MACRO F 
3 426 m 0555 1 BUILT_IN_FUNCTION_ENTRY (OPNAME ,CODE ,ARGUMENTS) = 3 
3; 425 m 0556 1 UPLIT BYTE (TORENSK_OPERAND R UM T 3 
> 426 m 0557 1 WORD TOKENSK BUILTIN FUNCTIONS : 
> 427 m 0558 1 BYTE (ZNAME('TOKENSK_*,CODE)), 0, : 
; 428 m 0559 1 0, 0 3 
; 409 0560 1 ZASCIC OPNAME) %; ; 
; 430 0561 1 3 
3 6431 R206 1 3 
3 $34 0565 1! Define two tokens that are used in other modules. F 
; 43 0564 1! é 
3 rte 565 1 GLOBAL BIND 3 
3; 435 566 1 DBGS$GL coven? TOKE F: 
3; 436 567 1 OPER R ENTRY CONVERT? CONVERT, INFIX, 0, 0), 3 
3; 437 0568 #1 DBGS$GL DEPOSTY 3 
; 438 B26? 1 OPERA R ERTRY if DEPOSIT", DEPOSIT, INFIX, 0, 0), : 
3 439 0570 1 DBGS$GL TDENtTYy KEN = 3 
: 440 571 1 OPERA RENTRY sepeemtity®, IDENTITY, PREFIX, 0, 0), 3 
: 661 278 1 DBGS$GL NEG Or ONST OKEN é 
: 46 573 1 OPERA TOR ENTRY ‘ NEGCONST®, NEGCONST, PREFIX, 0, 0), 3 
: 46 574 1 DBG$GL_POS_CONST 3 
3 444 575 1 OPERATOR ENTRY POSCONST", POSCONST, PREFIX, 0, 0), 3 
3: 645 3f8 1 DBGS$GL NEG STGN_TOKEN = 3 
3 446 577 1 OPERATOR ENTRY (‘= -', UNARY_MINUS, PREFIX, 0, 0), : 
: 447 0578 1 DBG$GL_POS STEN. TOKEN = 
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OPERATOR_ENTRY (*+", UNARY_PLUS, PREFIX, 0, 0); 


) 
V 


OPERAND LEXICAL TOKEN ENTRIES 


Define macro which builds an Operand Lexical Token Entry and returns the 
address of the entry. The macro is used Like this: 


OPERAND_ENTRY(TOKENCODE, NAMESTRING) 


PAA 
OOONO UE wn— 


Here TOKENCODE is the code value for the type of operand this token 
constitutes. TOKENSK_IDENTIFIER or TOKENSK_INTEGER are valid examples. 
NAMESTRING is the ASCII] name to be associated with the operand token. 
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CRO 
PRID_TABLE(TBLNAME) = 
ZIF ZLENGTH EQL 1 


EN 
eeuse TBLNAME = PLIT(REP 0 OF (0)): VECTORE,LONG) 
af — TBLNAME = PLIT(PRID_ENT(ZREMAINING)): VECTORC,LONG) 


Sssss 
= 
SOSoooo 


3 1 $ 
3 1 ; 
3 1 : 
3 1 F 
3 1 3 
3 1 : 
3 1 $ 
3 1 3 
3 1 3 
; 1 : 
; 1 3 
; 1 : 
: 1 F 
3 1 3 
3 1 $ 
; 46 9 1 CRO P 
; 464 m 0595 1 OPERAND_ENTRY(CODE, NAMESTRING) = 3 
; 465 fs 3 UPLIT BYTE (TOKENSK. OPERAND , 0, WORD (CODE), ; 
> 467 98 1 ZASCIC NAMESTRING): TOKENSENTRY 2%; : 
: 468 99 «1 3 
; 469 600 1 3 
: 470 601 1 F 
3: 471 0602 1 ! PREDEFINED IDENTIFIER TABLE 3 
3; 67 0603 1! 3 
3; 47 06046 1! > $ 
3 474 0605 1 ! Define the macros which generate a Predefined Identifier Table or @ Language. : 
; 475 0606 1 ! A Predefined Identifier Table is a counted vector (a PLIT) of Longwords which 3 
: 476 0607 1 ! point to Predefined Identifier Entries for the reserved names of the Language. : 
3; 477 0608 1 ! Each pointer is relative to the address TABLEBASE so that the code is completely : 
; 478 0609 1 ! Position Independent (PIC); the true pointer value is thus the longword value 3 
3 rh Berd ! } plus TABLEBASE. 3 
; ret bers : : A Predefined Identifier Table is generated with the following macro invocations: : 
; 48 0614 1! PRID_TABLE(TBLNAME, F 
; rtf + : PRID_ENTRY(PRIDNAME, FCODE, DTYPE, VALUE), : 
: $38 O31? : PRID_ENTRY(PRIDNAME, FCODE, DTYPE, VALUE)); 3 
; 488 0619 1 ! Here TBLNAME is the name of the Predefined ID Table generated. PRIDNAME is 3 
3; 489 0620 1! the gyoted character string which constitutes the reserved name (e.g., 3 
; 490 06 1! "TRUE‘, ‘FALSE’, *.TRUE.*, *.FALSE.'), DTYPE is the Data type (e.g., Boolean, 3 
3; 491 88 1! Integer). DTYPE is putenes fealty prefixed oy *DSCSK_DTYPE_*, and VALUE is a 3 
3 $3 be : Longword constant value for the PRID constant, FCODE~is the format Code. ; 
3 494 0 1 ! The PRID_ENTRY macro can also be used independently to generate an entry. ' 3 
3 aa3 0 : It returns the address of the PRID Entry it created. 3 
3 497 6 ! MA 3 
3 1 3 
3 1 3 
; 1 3 
; 1 : 
3 1 3 
3 1 3 
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CRO 
PRID_ENTCADDRESS) = 
TADDRESS) = TABLEBASE %; 
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; 505 ! 

; 09 1 

; 508 1 

3 298 1 

; 510 1 MACRO 

; $11 en!) 1 PRID_ENTRY(NAMESTRING, FCODE, DTYPE, VALUE) = 

; 21g M 1 OPLIT BYTE(PRIDSK_CONSTANT, 

c- 3s M0644 «1 ZNAME (*DSCSK_DTYPE_", DTYPE), 

; 514 M0645 1 UNAME (*RSTSK-TYPE_*, FCODE), 

3 319 M 0646 1 

; 216 ” 064 1 LONG (VALUE) 

; 51 646 1 ASCIC NAMESTRING)%; 

3 318 0649 1 

3 319 0650 1 

; 520 0651 1 

: 521 6636 1 ! TERMINATOR LEXICAL TOKEN ENTRIES 

3 > ; 0655 1! 

; > 0654 1! 

; 524 0655 1 ! Define the macros which generate Terminator Lexical Token Entries. These 
3 eo 8638 1 ! entries define lexical tokens which can terminate the current expression. 
; 326 0657 1: For example, subscript expressions can hey be terminated by the tokens 
s Der 0658 1! *',"* and "')"'. These are thus the Terminator Tokens for subscript expressions. 
s See 0659 1: Similarly, “DO” is a terminator token for the address expression in the 

3 262 0660 1 ! SET BREAK command and "'="' is a terminator token for the address expression 
; 530 0661 1 ! in the DEPOSIT command. Terminator Lexical Token Entries thus define the 
Soe 0662 1 ! tokens which can validly terminate the current expression in the current 

gs jae 0665 1 ! context. Terminator Lexical Token Entries have exactly the same format as 
3 a37 beee : Operand Lexical Token Entries are are referenced with the same field names. 
; 232 pees ' } A table of Terminator Lexical Token Entries is declared as follows: 

; 537 0668 1! TERMINATOR_ TABLE (TBLNAME, 

; 238 pose : TERMINATOR_ENTRY(NAMESTRING, CODE, FLAGI, ...), 

$ 279 pees : : TERMINATOR_ENTRY(NAMESTRING, CODE, FLAGI, ...)); 

; 246 0675 1 ! Here TBLNAME is the name of the terminator table. NAMESTRING is the ASCII 
; «54 0674 1 ! string which constitutes the terminator token, CODE is the name of a termi- 
; 544 0675 1 ! nator token code which identifies what kind of terminator this is (this name 
: 545 0676 1! is automatically prefixed by “TOKENSK_"’ by the macro), and FLAG!, ... is 

; 546 0677 1 ! zero or more flag names indicating flag bits to be set in the Terminator 

: 7 0678 1 ! Token Entry. The flags names are automatically prefixed by ‘‘TOKENSM_"’ to 
; 548 679 1 ! generate the appropriate mask value name. 

3; 549 680 1! 

; 550 geet 1 MACRO 

3 63S) M 06 4 1 TERMINATOR_TABLE(TBLNAME) = 

3 226 M0683 1 ZIF ZLENGTH EQL 1 

3 22 m 0684 1 THEN 

: 336 . 5 ' secse TBLNAME = PLIT(REP 0 OF (0)): VECTORE,LONG) 

3 336 4 boas 1 BIND TBLNAME = PLITC(COP_ENT(ZREMAINING)): VECTORC,LONG) 

s So7 88 1 Fl 2%; 

; 558 689 1 

; 559 690 1 MACRO 

; 560 ™ 0691 1 TERMINATOR_ENTRY(NAMESTRING, CODE) = 

; 561 m 0692 1 UPLIT BYTE(O, 
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ZIF ZLENGTH LEQ 2 
ZTHEN 


0 
TELSE 
- 1,0 OR OP FLAGS (REMAINING) 
WORD (XNAME(*TOKENSK_',CODE)), 
ZASCIC NAMESTRING) 2%; 


NUMBER SCANNER STATE TABLE 


Define the macros which generate Number Scanner State Tables. These tables 
are used in the lexical scanning of numeric constants and are in general 
specific to each Language. 


A Number Scanner State Table for a language is generated with the following 
macro invocations: 


NUMBER_STATE_TABLE (TBLNAME, 


NUMBER_STATE (STATE_ID 
NUMBER_TRARSITION(CHAR_CLASS, ACTION, NEXTSTATE), 


NUMBER_TRANSITION(CHAR CLASS, ACTION, NEXTSTATE), 
NUMBER-TRANSITION(OTHER, ACTION, NEXTSTATE)), 


NUMBER_STATE(STATE_ID 
NUMBER_TRANSITION(CHAR_CLASS, ACTION, NEXTSTATE), 


NUMBER_TRANSITION(CHAR_CLASS, ACTION, NEXTSTATE), 
NUMBER TRANSITION(OTHER, ACTION, NEXTSTATE))); 


The NUMBER_STATE_TABLE macro sets up the Number Scanner State Table as a 
whole and Binds the table name TBLNAME to that structure. Each state in the 
table is declared with the NUMBER_STATE macro whose STATE_ID argument names 
the state. The actual state name is prefixed by “"NUMSTSXR_STATE_"’ by the 
macro and must be declared as such in the COMPILETIME declaration below. 


The NUMBER_TRANSITION macro defines one transition from the current state to 
some other state. The transition is taken if the next input character is of 
the character class epee li ‘8 by CHAR_CLASS. (CHAR_CLASS is automatically 
prefixed by "‘NUMSTSK_CLASS_"’ to generate the class Code constant.) If the 
transition is taken, the action apes tt ied by ACTION is taken. ACTION, which 
is automatically prefixed by “NUMSTSK_ACT_"* by the macro, is a CASE index 
used by the Number Scanner to select an action routine which performs what- 
ever semantic pcecess tng is appropriate. After the action routine executes, 
the next state in the state table is given by NEXTSTATE. NEXTSTATE is auto- 
moticot ty grettaed by “‘NUMSTSK_ STATE y the macro and must be declared as 
the STATE_ID on some other NUMBER_STATE declaration in the state table. 


Every state in the state table must have at least two transitions and the 


es 


ae 
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> 619 750 1! Last transition must givers be for class NUMSTSK_CLASS_OTHER, written as i 
; 620 731 1 ! OTHER in the NUMBER_TRANSITION invocation. (There is fio point to having : 
3 62) 7 ¢ 1! a state with only a single transition since that state could then be merged ‘ 
; ° ¢ f 7 : ; with the transition's next state.) i 
+ 624 $F 5 1 MACRO : 
; 625 mM 07 $ 1 NUMBER STATE ge La = : 
; 626 m 07 1 BIND TBLAAME = UPLIT( ae era NUMSTSTABLE i 
; 627 0758 1 ZASSIGN(NUMSTSXX_CUR_LOC, 0) %; ‘ 
; 628 0759 1 F 
; 629 0760 1 MACRO : 
; 630 ™ 970) 1 NUMBER _STATE(STATE_ID) = : 
: 631 M toe 1 ZASSIGN(ZNAME (*NUMSTSXX_STATE_', STATE_ID), NUMSTSXX_CUR Log) i 
; 632 M0763 1 ZASSIGN(NUMSTSXX_CUR_LOC, NUMST$XX_CURTLOC’ + (%LENGTA - 1)/3) 
; 63 0764 1 ZREMAINING 2; : 
; 634 0765 1 : 
; 635 0766 1 MACRO : 
; 636 m 0767 1 NUMBER TRANSITION(CHAR_CLASS, ACTION, NEXTSTATE) = H 
; 637 M0768 1 BYTE (ZNAME("NUMSTSK_CLASS_", CHAR_CLASS)), : 
; 638 ™ 0769 1 BYTE (ZNAME("NUMST$K_ACT_', ACTION)) ; 
; 639 0770 1 WORD (ZNAME("NUMSTSXR_STATE_*, NEXTSTATE)) %; : 
; 640 0771 +1 ‘ 
; 641 14k: 1 COMPILETIME : 
3 O68 0773 «1 NUMSTSXX_CUR_LOC = 0, ' Current index into state table vector é 
; 64 0774 1 ; during macro expansion ‘ 
> 644 0775 1 NUMSTSXX_STATE_START_ STATE = 0, ! Index values in state table vector ; 
; 645 0776 1 NUMSTSXX-STATE_LEADING DOT = 0, ' for state table entries ; 
> 646 0777 (#1 NUMSTSXX-STATE_ACCUM_IAT = 0, : 
; 647 0778 #1 NUMSTSXX_STATE_T_ACCOM_INT = 0, ; 
; 648 0779 #1 NUMSTSXX_STATE_ACCUM_HEX = 0 3 
3 649 0780 1 NUMST$XX~STATE-ACCUM-FRAC = 0, 3 
; 650 0781 1 NUMSTSXX-STATE_T_ACCOM_FRAC = 0, 3 
; 651 078¢ 1 NUMSTSXX_STATE_GET_EXPONENT = 0, 3 
; $36 07835 1 NUMSTSXX_STATE_GET _EXP_SIGN = 0, : 
; & 0784 1 NUMSTSXX_STATE_ACCOM EXP = 0, : 
3; 654 0785 1 NUMSTSXX-STATE_T_ACCOM_EXP = 0, 3 
3; 655 0786 1 NUMSTSXX-STATE_B_START_STATE = 0, ; 
; 656 0787 1 NUMSTSXX_STATE_B_ACCUM_INT = 0, : 
3; 657 0788 #1 NUMST$XX~STATE_T_B_ACCOM_INT = 0, 3 
; 658 0789 1 NUMSTSXX~STATE_B_ACCUM FRAC = 0, 3 
; 659 0790 1 NUMST$XX"STATE_T-B_ACCOM_FRAC = 0, : 
; 660 0791 1 NUMSTS$XX"STATE_END_STATE = 0; i 
; 661 0738 1 3 
3 666 ta 1 ‘ 
; 66 794 1 ! PRIMARY PARSER STATE TABLE ; 
; 664 0795 1! ‘ 
; 665 0796 1! F 
; 666 0797 1 ! Define the macros which generate Primary Parser State Tables. These tables j 
; 667 8595 1 ! are used in the parsing of Primary Symbols (symbol names including pathname 

; 668 799 1! qualification, data qualification, subscripting, dereferencing, etc.) and 

3 66° 3500 : : are specific to each language. 

: 671 Bang 1 ! A Primary Parser State Table for a language is generated with the following 

: 67% $ 1 ! macro invocations: 

3 OF 04 1! 

3; 674 805 1! PRIMARY_STATE_TABLE (TBLNAME, 

; 675 0806 1! 
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s 67 0807 1! PRIMARY_STATE(STATE_ID 

; or? 0899 i PRIMARY_TRANSITION(OPCODE, ACTION, NEXTSTATE), 

3 4 319 : } PRIMARY_TRANSITION(OPCODE, ACTION, NEXTSTATE)), 

; 681 o \§ evs 

3 pe 15 1! 

3; ¢ 0814 1! PRIMARY_STATE(STATE_ID 

; tt pat? ; PRIMARY _TRANSITION(OPCODE, ACTION, NEXTSTATE), 

3 ey O87 : PRIMARY_TRANSITION(OPCODE, ACTION, NEXTSTATE))); 

; 688 $819 1 ! The PRIMARY_STATE_TABLE macro sets up the Primary Parser State Table as a 

: 689 0820 1 ! whole and binds the table name TBLNAME to that data structure. Each state in 
; 690 bes) 1! the table is declared with the PRIMARY_STATE macro whose STATE ID orguaeny 

; 691 08 ; 1 ! names the state. The actual state name is pret ixed by ‘‘PRIMARYSXX_STATE_"’ 

; 24 th : } by the macro and must be declared in the COMPILETIME declaration below. 

3 694 0825 1 ! The PRIMARY_TRANSITION macro defines one transition from the current state 

> 695 0826 1 ! to some other state. The transition is taken if the current oe raery Operator 
; 696 0827 1 ! returned by the Lexical Scanner has the Operator Code (TOKENSW_CODE) speci- 
; 697 0828 1! fied as OPCODE. (OPCODE is automatically prefixed by ‘‘TOKENSK_“ to generate 
; 698 0829 1 ! the constant name.) If the transition is taken, the action routine specified 
; 699 0830 1 ! by ACTION is taken. ACTION, which the macro prefixes with ‘'PRIMARYSK_ACT_"’, 
: 700 0831 1 ! is a CASE index used by the Primary Parser to select an action routine to do 
3; 701 peas 1 ! whatever semantic processing is appropriate to build the Primary Descriptor 
; 70 0833 1! for the Primary Symbol a parsed. After the action routine executes, the 
: 70 0834 1 ! next state in the state table is given by NEXTSTATE. NEXTSTATE is automati- 
3 704 0835 1! ceAty prefixed by ‘‘PRIMARYSXX_STATE_“’ by the macro and must be declared as 

3 pee ete: ’ the STATE_ID on some other PRIMARY_STATE declaration in the state table. 

3; 707 0838 1! If a 14 meg | Operator is encountered Cartan the scan for which there is no 

; 708 0839 1 ! transition in the current Primary Parser State Table state, the Primary 

; 709 0840 1 ! Parser signals an error. This is how many ill-formed Primary Symbols are. 

.s 0841 1 ! detected. Every state thus has an sap te t transition for every unspecified 
; (711 Bag 1 ! Operator Code (the ‘‘other’’ transition) for which the action is to signal a 

: Ne 0845 1 ! syntax error. 

3 71 0844 1! 

3; «6716 0845 1 MACRO 

s 715 4 pees 1 PRIMARY_STATE_TABLE(TBLNAME) = 

3; 716 M0847 1 BIND TBLNAME = UPLIT(ZREMAINING): PRIMARYSTABLE 

: 717 848 1 ZASSIGN(PRIMARYSXX_CUR_LOC, 0) 2%; 

3; 718 0849 1 

3; 719 Bees 1 MACRO 

; 720 m 0851 1 PRIMARY STATE(STATE ID) = 

> wae ‘| bb2¢ 1 ZASSIGN(ZNAME ('PRIMARYSXX_STATE_", STATE_ID), PRIMARYSXX_CUR_LOC) 

HY 1s¢ m 085 1 ZASSIGN(PRIMARYSXX_CUR_LOT PRIMARYSXX cOR L6c + (ZLENGTA = T)/3 + 1) 
; r23 0894 ZIF XLENGTH GTR 1 ZTHER ZREMAINING, ZFT LONG (0) 2; 

s fe O88 1 MACRO 

3; 726 m 085 1 PRIMARY TRANSITION(OPCODE , ACTION, NEXTSTATE) = 

: 727 M $3 1 BYTE (ZNAME(*TOKENSK_", 

: 728 m 0859 1 BYTE (ZNAME('PRIMARYSK ACT ', ACTION)) 

; 4 , 360 1 WORD (ZNAME(*PRIMARYSXR_STATE_", NEXTSTATE)) 2; 

ee pee 1 COMPILETIME : : 

: T32 0865 1 PRIMARY$XX_CUR_LOC = 0, ! Current index into primary parser state 
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; 733 B66 1 table during macro expansion 

Wak 65 1 PRIMARYSXX_STATE_START_STATE = 0, Index values in primary parser state 
; 735 B66 1 PRIMARYSXX_STATE_GET_GCOBAL = table vector for the states 

ap 0867 1 PRIMARYSXX_STATE_GOT_BACKSLASH = 0, 

yt. pee8 1 PRIMARYSXX_STATE_GOT_DOT = 

: 738 0869 1 PRIMARYSXX-STATE-GOT-SUBSCRIPT = 0 

: 739 0870 1 PRIMARYSXX-STATE-GOT-SUBSCRIPT2 = 6, 

; 740 0871 1 PRIMARYSXX_STATE_GOT_BRACKET = 0, 

; 741 pee 1 PRIMARYSXX_STATE_GOT_DEREF = 0, 

: 74 0873 1 PRIMARYSXX_STATE_-GOT_DOT_SLASH = 0, 

; 74 0874 #1 PRIMARYSXX_STATE_END_STATE = 0; 

3 746 Bare 1 

3; 745 578 1 

> 746 0877 1 ! The following data structure is used in the SAVE_SUBSCRIPTS routine 

3 747 0878 1 ! and the PATHNAME_TO_PRIMARY routine. 

; 748 0879 1! 

3 749 0880 1 FIELD 

: 750 0881 1 SUBSCR_DESC_FIELDS = 

3 fol 0882 1 T 

; 75 0883 1 SUBSCRSB_PATH_INDEX = (0,0,8,0], : Says which pathname element 
s 75 0884 1 } the subscripts were 

3; 7546 0885 1 ' associated with 

g £9 0886 1 SUBSCRSB_SUBCNT = (0,8,8,0], : Count of subscripts so far 

; 756 0887 1 SUBSCRSV_RANGE = £0.16.1.0]. : True if range was specified 
s fee 0888 1 SUBSCRSV_ASTER = (0,17,1,0] ! True for ‘’*” range 
: 758 0889 1 SUBSCRSV-MARKER = (0,18 {.04. i Marker bit (see SAVE_SUBSCRIPTS) 
: 759 0890 1 SUBSCRSL-LBOUND = [1.0,82.0). i Lower bound of range 

; 760 ood ! SUBSCRSL_UBOUND = (2,0,32,0) ! Upper bound of range 

3 rO¢ 08935 1 MACRO 

s #6 m 0894 1 SUBSCRSDESC = BLOCKVECTORCDBGSK_PATHNAME SIZE,3,LONG] 

> 764 0895 1 FIELD(SUBSCR_DESC_FIELDS)&; 

3 765 0896 1 LITERAL 

; 66 0897 1 SUBSCR_DESC_SIZE = 3*DBGSK_PATHNAME_SIZE*%UPVAL; 

s for 0898 1 

; 768 08 1 

3; 769 0900 1 ! PARSER FLAGS 

3; rr 0901 1! 

s ry 0902 1! 

3; 772 0903 1 ! Define ow flags which may have different settings for different languages. 
s «73 0904 1 ! These flags are stored in the Table of Lengeapensoes Sts Tables and are copied 
3; 774 0905 1 ! to individual OWN variables when the current language is set. These flags 

- Fre 0906 1 ! control the behavior of the parser in those cases where different Languages 
s 77 907 1 ! have different behaviors and the easiest wey of encoding these differences 

; Aas $4: ; } is to have a flags to control the parser. The following flags are available: 
3; 779 910 1! MULTIPLE_SUBSCR = The Language allows multiple subscript parentheses 

: 780 mis 6 n acrey references. For example, PASCAL allows 

> 781 ogig 1 i XC1,2,3,.4) to be written as XC1,24(3J(4]. This 

: «78 0915 1! be should not be set if the second form is not 

3 87 bore : : equivalent to the first form of array reference. 

; 785 B91¢ 1 ! Each of these flags is set to TRUE or FALSE in an OWN variable with the same 
3 36 89) 1 ! name as the flag name give here. 

; 7 918 1 

3: «4788 0919 1 

: 789 0920 1 
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; 790 921 1 ! TABLE OF LANGUAGE=-SPECIFIC TABLES 

Ro Bed 

; 79 924 1! Define the macro which builds the table of pointers to the lengquegenspec tt te 

; 794 8 5 1! parse tables. This table is simply a vector of pointers to the Character 

; 795 9 § 1! ncept ton Table, the Identifier Operator table, the Operator Character Opera- 

; 7% 09 1! tor Table, and the Number Scanner State Table for the specified Language. 

3; 17 0928 1 : Each pointer is relative to TABLEBASE to keep the table position-independent 

: xs 34 2 : } (PIC). The macro is used as follows: 

; 800 $9 as LANGUAGE _TABLES(LANGUAGE = Language-name, 

; 801 09 ¢ 1! CHARTBL = character-exception-table, 

; 80 09 1! IDENT_OPTBL = identifier-operator-table, 

; 80 0934 1! OPCHAR_OPTBL = operator-character-operator-table, 

; 8046 0935 1! NUMBER TABLE = number-scanner-state-table, 

: 805 0936 1! PRIMARY_TABLE = primary-parser-state-table, 

; 806 0937 1! SUBSCR_TERMS = subscript-terminator-table, 

; 807 0938 1! PRIDTBC = Predefined-identifier-table, 

; 808 0939 1! BIF_TABLE = built-in-function-table, 

; 809 0940 1! MULTIPLE _SUBSCR = true-or-false, 

; 810 0941 1! ENFOR ECORD = true-or-false, 

3; «811 0942 1! CASING SIGNIFICANT = true-or-false, 

3 si¢ 0943 1! COMPONENTS_IN_PATHNAME = true-or-false, 

3 ai? bang: ’ } INCOMPLETE_QUAL = true-or-false); 
3; 815 0946 1 ! Notice that keyword parameters are used. The meanings of the parameters 
>; 816 0947 1 ! should be self-explanatory. 

; 817 0948 1! 

; 818 0949 1 KEYWORDMACRO 

; 819 0950 1 LANGUAGE _ TABLES (LANGUAGE=DBG$K_UNKNOWN, CHARTBL=0, IDENT_OPTBL=0, 
: 820 0951 1 OPCHAR_OPTGL=0, NUMBER TABLE=0, PRIMARY_TABLE=0, | 
: 821 444 1 SUBSCR-TERMS=0, PRIDTBC=0, BIF_TABLE=0 
$ Bs¢ 095 1 MULTIPCE SUBSCR=F ALSE, ENF ORCE~RECORD=TRUE, 

; 82 Bese 1 CASING_SIGNIFICANT=FALSE, 
; BSe ~ beee : COMPONENTS_IN_PATHNAME=FALSE, INCOMPLETE_QUAL=FALSE) = 

3; 826 0957 1 BIND X%NAME(LANGUAGE, ‘* TABLES") = 

> 827 m 0958 1 UPLIT (CHARTBC - TABLEBASE 
; 828 ™ 0959 1 IDENT_OPTBL - TABLEBASE 

; 89 x 9960 1 OPCHAR_OPTBL - TABLEBASE, 

; 830 m 0961 1 NUMBER_TABLE = TABLEBASE 

> 831 ™ 096¢ 1 PRIMARY_TABLE = TABLEBASE, 

; S36 m 0963 1 SUBSCR_TERMS = TABLEBASE, 

, = 4 bone 1 PRIDTBC = TABLEBASE 

; 8 m 0965 1 BIF_ TABLE - TABLEBASE, 

; 835 ™ 0966 1 MULTIPLE SUBSCR, 

:; 8 0967 1 ENFORCE RECORD 

: 83 m 0968 1 CASING SIGNIFICANT, 

; 838 M0969 1 COMPONENTS_IN_PATHNAME 

: 839 0970 1 INCOMPLETE~QUAL): VECTOR C,LONG) 2; 
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LANGUAGE=- INDEPENDENT PARSE 


AX-11 oh igs 
DEBUG. SRCIJD 


TABLES 


The Parser and Lexical Scanner tables in this section are the Language- 
independent tables used during lexical scanning and parsing. 


Define a table ‘‘base address’’. The TABLEBASE Label defines a location in the 
PLIT PSECT which constitutes the base address for all pointers within the 
DEBUG parse tables defined in this module. This base address is needed to 
make these tables position-independent (PIC) since DEBUG may be placed any- 
where in the virtual address space when run with a user program. 


ND 
TABLEBASE = UPLIT BYTE (ASCII ‘BASE'); 


Generate the ‘Percent Table" to define all built-in ‘'%''-symbols recognized 
by DEBUG. This includes ZLINE, ZLABEL, ZNAME, and all the register names. 


Define Literals which identify the kind of ‘%'’=symbol a given such symbol 
Ss. s is used as a CASE index for further precessing in the Lexical 
Scanner (DBGSLEXICAL_SCANNER). 


ITERAL 
PERCENT_NOF IND = Q, ' No such ‘'%''=symbol exists 
PERCENT_LINE = 1, ! ZLINE symbol 
PERCENT_LABEL = ¢ ! ZLABEL symbol 
PERCENT_NAME = 3, ! ZNAME symbol 
PERCENT_DEC = 4, ! ZDEC decimal operator 
PERCENT _HEX s 3, ! ZHEX hexadecimal operator 
PERCENT_OCT = 6, ' ZOCT octal operator 
PERCENT_BIN = 7, : ZBIN binary operator 
PERCENT_IDENT = 8; ! Identifier ''%''=symbols such as %R5 


Generate the actual Percent Table itself. Note that for compatibility with 
past usage, we allow abbreviations for %LINE and %LABEL, but only for those 
two reserved names. 


ND 
PERCENT TABLE = PLIT( 
UPLIT BYTE(PERCENT_LINE, ASCIC ‘ZLINE*) = TABLEBASE, 
UPLIT BYTE(PERCENT_LINE, ZASCIC ‘ZLIN' ) = TABLEBASE, 
UPLIT BYTE(PERCENT_LINE, ZASCIC ‘ZL1" ) = TABLEBASE, 
UPLIT BYTE(PERCENT LABEL, ZASCIC ‘ZLABEL’)~ TABLEBASE, 
UPLIT BYTE(PERCENT_LABEL, ZASCIC ‘ZLABE') - TABLEBASE, 
UPLIT BYTE(PERCENT LABEL, ZASCIC ‘ZLAB’ ) - TABLEBASE, 
UPLIT BYTE(PERCENT_ LABEL, ZASCIC ‘ZLA* ) = TEL Beate: 
UPLIT BYTE(PERCENT_NAME, ZASCIC ‘ZNAME') = TABLEBASE, 
UPLIT BYTE (PERCENT_IDENT, ZASCIC *ZRO' ) = TABLEBASE, 
UPLIT BYTE(PERCENT_IDENT, ZASCIC ‘ZR1° ) = TABLEBASE, 
UPLIT BYTE(PERCENT_IDENT, ZASCIC ang. ) = TABLEBASE, 
UPLIT BYTE(PERCENT_IDENT, ZASCIC "2R5° ) = TABLEBASE, 
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(IF X THEN ...), and other situations (no IR, except end of command). 
TERMINATOR_TABLE (EMPTY _TERM_TBL); 
TERMINATOR_TABLE (COMMA_TERM_TBL, 
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; 955 1085 1 oariee TOKEN = 

3; 9 10 $ 1 AATOR pareve" start of expression’, INITIATOR, PREFIX, 200, 

; 9 10 1 TERMINATOR TOKE 

; 958 1088 1 ATOR “ENTRY Send of expression’, TERMINATOR, POSTFIX, 2, 200, LEXICAL), 
; 959 1089 1 PRIMARY” TERN 

; 44 4 : OPERATOR— “ENTRY (end of symbol", PRIMARY_TERM, POSTFIX, 0, 0, PRIMARY); 
: 9% 1092 1 

; 1938 1 ! Generate Operator Lexical Token Entries for the radix operators. These 

3 ace 199e : ; are the operators which change the current expression radix back and forth. 
; 966 1998 1 BIND 

; 967 1097 1 RADIX_OP_DEC = 

; 968 1098 1 OPERATOR -ENTRY(" ZDEC", RADIX_DEC, PREFIX, 200. 190, LEXICAL), 

; 969 1099 1 RADIX _OP_HEX 

; 970 1100 1 OPERATOR AENTRY(" RHEX", RADIX_HEX, PREFIX, 200, 190, LEXICAL), 

; 971 1101 1 RADIX_OP_OCT™= 

; 97 1136 1 OPERATOR _ENTRY('XOCT", RADIX_OCT, PREFIX, 200, 190, LEXICAL), 

5 97 1103 1 RADIX_OP_BIN' = 

3 ore 1188 : OPERATOR -ENTRY('ZBIN', RADIX_BIN, PREFIX, 200, 190, LEXICAL); 

; 976 1106 1 

; 977 1107 1! Generate Operand, Lexical Token Entries for the built-in DEBUG symbols 

; 978 1108 1: " “"\", and ‘**' meaning current location, current value, and previous 

; 979 1109 1! Location. 

; 980 1110 1! 

; 981 1111 1 BIND 

; 982 Wig 1 CURLOC_TOKEN = OPERAND_ENTRY(TOKENSK_IDENTIFIER, ‘%CUR LOC’), 

3; «983 111 1 CURVAL_TOKEN = OPERAND “ENTRY (TOKENSK_ IDENTIFIER, HTCURVAL') 

3 one 44i2 ; PREVLOC_TOKEN = OPERAND_ENTRY(TOKENSK_IDENTIFIER, ‘%PREVLOC' S; 

; 986 1116 1 

: 987 1117 1°! Generate the Operator Table for the built-in operators allowed in Address 
; 988 1118 1: Expressions. 

; 989 1119 1! 

; 990 P 1120 1 OPERATOR_TABLE (ADDR EXPR_OPTBL, 

: 991 P1121 1 OPERATOR_ENTRY('.', INDIRECT, PREFIX, 200, 40), 

: 99 if 1156 1 OPERATOR_ENTRY('@', INDIRECT, PREFIX, 200, 40), 

; 99 P1123 1 OPERATOR_ENTRY('+", ADD INFIX, 10, 10), 

> 994 P1124 1 OPERATOR-ENTRY('=", SUBTRACT, INFIX, 10. 10). 

; 995 P1125 1 OPERATOR_ENTRY('+*, UNARY_PLUS, PREFIX, $00. 20), 

; 996 P1126 1 OPERATOR_ENTRY('=". UNAR INUS ,PREF IX, 00, $0) 

3; 997 P1127 1 OPERATOR-ENTRY('®’, MULTIPLY,  INFIX, 0, 30), 

; 998 P1128 #1 OPERATOR_ENTRY('/*, DIVIDE INF IX 8. be) 

3; .999 P1129 1 OPERATOR_ENTRY('<', BITSELECT, POSTFIX, 50, 200, LEXICAL), 

; 1000 P 1130 1 OPERATOR -ENTRY('(", OPENPAREN, PREFIX, 200, 5, LEXICAL) 

; 1001 11371 «1 OPERATOR_ENTRY(")", CLOSEPAREN, POSTFIX, 6, 200, LEXICAL)S; 

3 bog 1138 1 

3; 100 1135 (1 

3: 1004 1134 1 ! Generate the Terminator Lexical Token Eatry tables used for the EXAMINE 

3; 1005 1135 1! and other commands (EXAM A,B,C or EXAM A:B,C at the DEPOSIT command 

3; 1006 1138 ' i (DEP x. = Y), ape SET BREAK cennond (SET BREAK X DOC. --)), the IF command 
3 1138 1 

; 1139 1 

; 1140 1 

3 1141 1 
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1g TERMINATOR_ENTRY(',', TERM_COMMA)); 
14 Pp TERMINATOR. TABLE (EQUAL_TERM_TBL 
SF TERMINATOR_ENTRY('=", FéRM EQUAL, BALANCED_PARENS)); 
O17 Pp TERMINATOR TABLE (DO TERM TBL, 
oie TERMINATOR_ENTRYT'DO', TERM_DO, BALANCED_PARENS)); 
020 Pp TERMINATOR TABLE (THEN TERM TBL 
8 1 TERMINATOR_ENTRY(' THEN', TERM_THEN, BALANCED_PARENS)); 
0 : Pp TERMINATOR TABLE (COMCOL TERM 
024 P TERMINATOR_ENTRY(', Tele MA), 
O63 TERMINATOR” “ENTRY(':', TERM” SOLON. “MUST_BE_SINGLE)); 
059 Pp TERMINATOR TABLE CCRUHDO TERM_1BL 
028 P TERMINATOR_ENTRY(',' 
029 Pp TERMINATOR— -ENTRYC COHEN! TERM oneh, BALANCED_PARENS), 
O30 TERMINATOR_ENTRY('DO', TERM_ D6, BALANCED. PARENS)); 
032 Pp TERMINATOR TABLE (OPEN TERM TBL 
033 TERMINATOR_ENTRY('T', ‘teRM _OPEN)); 
035 Pp TERMINATOR TABLE (COMPAREN, TERM 18. 
036 Pp TERMINATOR_ENT TERM 
O37 TERMINATOR— “ENTRY fet TERRE Pose. *BALANCED_PARENS)) ; 
039 P TERMINATOR TABLE (TO TERM TBL, 
O40 TERMINATOR_ENTRYT' mot, TERM_TO, BALANCED_PARENS)); 
06g Pp TERMINATOR TABLE (By TERM TBL, 
ot Pp TERMI R_ENTRYT’ Bye TERM_BY, BALANCED_PARENS) 
045 
046 
047 
048 
049 
050 
0 
0 
0 
0 
0 
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P TERMINATOR orn $a SELECT_TERM_T 
P TERMINATOR_ERTRY(',*, TERRE MMA), 

r TERMINATOR “ENTRYCS" TERM_ GTRTHAND ): 

5 fe TERMINATOR TAOS CSET CONSTANT_TERM_TBL, 

51 p TERMINATOR_ENTRY(','°, TERM_COMM 

26 P TERMINATOR TENTRY(' 3") TERM” ELose, * BALANCED _PARENS), 

33 TERMINATOR-ENTRY('..*°, TERA_DOT)S; 

55 

56 ! Generate a table indexed by Terminator Code which has pointers to the above 
57 ! Terminator Lexical Token Entry tables. This table is used in DBGSEXP_IN/ 
58 ! and DBGSADDR_EXP_INT to Look up the terminator table to be used for the 
B28 } current expréssion of address expression. 
061 OWN 
008 TERM_POINTER_TBL: VECTORCTOKENSK_MAX_TERMINATOR + 1] 
06 PSECT(DBGSPLIT) PRESET( 

064 TOKENSK_TERM_ at = EMPTY_TERM_TBL - TABLEBASE, 

065 TOKENSK_TERM_ COMMA = COMMA_TERM_TBL - TABLEBASE, 

B06 TORENSK TERR. EQUAL = EQUAL_TERM TBL - TABLEBASE, 

06 OKENSK~TERM_DO = DO_TERM TBC - TABLEBASE, 

068 TOKENSK~ TERM_ THEN) = THEN_TERM_TBL - TABLEBASE, 
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; 1069 1199 1 TOKENSK_TERM_COMCOL] = COMCOL TERM. TBL - TABLEBASE, : 
; 1070 1200 1 TOKENSK-TERM-CMWHDOJ = chy HDO-TERM-TBL - TABLEBASE, : 
; 1071 1201 1 TOKENSK_TERM_OPEN) OPEN_TERM_TBL - TABLEBASE, : 
: 13%¢ 1 8§ 1 TOKENSK_TERM_ COMPAREN3= wir TERM_TBL - TABLEBASE, : 
3 107 1203 1 TOKENSK-TERM_TO TERM_TBL - TABLEBASE : 
: 1074 1204 1 TOKENSK-TERM-BY > BY “TERM TBL - TABLEBASES; ; 
3; 1075 1205 1 $ 
; 1076 1 88 1 $ 
; 1077 1207 1 ! Generate the base Character Table. The Character Table for each Pg phe : 
; 1078 1208 1 ! language is generated by using this Character Table as a base and ‘ 
3; 1079 1209 1! ag ph dn a list of exceptions for specific choracters. The result is 3 
3 iSey : \9 : ;° lLanguage-specific Character Table, generated in the CHARTBL vector. 3 
; 1088 P 1 12 1 CHAR_TABLE (BASE CHARACTER TABLE, : 
; 108 P1213 1 CHAR_ENT('A', HEXBIGIT, ALPHABETIC, IDENT_ANYWHERE), ; 
3 1084 P1214 1 CHAR_ENT(‘B', ALPHABETIC, IDENT “ANYWHERE TERMINATOR), : 
> 1085 Pp 1219 1 CHAR-ENT('C’, HEXDIGIT, ALPHABETIC, IDENT“A RES, ; 
3 1086 P1216 1 CHAR-ENT('D', D, ALPHABETIC, IDENT_ CANYUHERE TERMINATOR), ; 
; 1087 P1217 1 CHAR-ENT(°E', E ALPHABETIC, IDENT-ANYWHERE), : 
; 1088 P1218 1 CHAR-ENT('F', HEXDIGIT, ALPHABETIC, IDENT~ ~ANYWHERE) | : 
3 1089 P1219 1 CHAR-ENT('G', ALPHABETIC, IDENT_ANYWHERE), ; 
3 1090 P1220 1 CHARENT('H', OTHER, | ALPHABETIC, IDENT-ANYWHERE). : 
3 1091 P1221 1 CHAR_ENT('I', OTHER, | ALPHABETIC, IDENT-ANYWHERE), ; 
; 109¢ P 129@ 1 CHAR-ENT('J', OTHER, | ALPHABETIC, IDENT-ANYWHERE), ; 
3 109 P1223 1 CHAR_ENT(°K', OTHER, | ALPHABETIC, IDENT-ANYWHERE), ’ 
3 1094 P1204 1 CHAR-ENT('L', OTHER, | ALPHABETIC, IDENT-ANYWHERE), : 
; 1095 P1225 1 CHAR-ENT('M', OTHER, ALPHABETIC, IDENT ANYWHERE), r 
3 1096 P 1226 1 CHAR_ENT('N', OTHER, | ALPHABETIC, IDENT-ANYWHERE), ’ 
3 1097 P 12¢ 1 CHAR-ENT('O', OTHER, | ALPHABETIC, IDENT-ANYWHERE), ; 
3 1098 P1228 1 CHAR-ENT('P*, OTHER, | ALPHABETIC, IDENT-ANYWHERE), : 
3 1099 P 1229 1 CHAR_ENT('Q', ALPHABETIC, IDENT_ANYWHERE), ; 
> 1100 P1230 1 CHARTENT('R', OTHER, | ALPHABETIC, IDENT ANYWHERE) , 
3 1101 P 1231 1 CHAR-ENT('S', OTHER, | ALPHABETIC, IDENT-ANYWHERE), F 
3 1102 P 1238 1 CHAR_ENT('T', OTHER, ALPHABETIC, IDENT TANTMHERE TERMINATOR), ; 
> 1103 P1233 1 CHAR-ENT("U", OTHER, | ALPHABETIC, IDENT ANYWHERE), : 
3 1104 P1234 1 CHAR-ENT(°V', OTHER, | ALPHABETIC, IDENT-ANYWHERE), : 
3 1105 P1235 1 CHAR_ENT('W', OTHER, | ALPHABETIC, IDENT— CANE E, TERMINATOR), ; 
> 1106 P 1236 1 CHARTENT('X", X ALPHABETIC, IDENT-ANYWHERE), : 
> 1107 P1237 1 CHAR-ENT('Y', OTHER, | ALPHABETIC, IDENT ~ANYWHERE) | ; 
; 1198 P 1938 ! CHAR_ENT('Z", OTHER, | ALPHABETIC, IDENT_ANYWHERE), ; 
3 1110 P1240 1 CHAR_ENT('a', HEXDIGIT, ALP) ABETIC, IDENT_ANYWHERE), ; 
31111 P1241 1 CHAR-ENT('b’, ALPHABETIC, IDENT_ANYWHERE), ’ 
; 1g P 1 4g 1 CHAR-ENT('c', HEXDIGIT, ALPHABETIC, IDENT “ANY WHERE) , ; 
3111 P1243 1 CHAR-ENT('d', D, ALPHABETIC, IDENTANYWHERE, TERMINATOR), : 
31114 P1244 1 CHAR-ENT(‘e', E ALPHABETIC, IDENT-ANYWHERES, ; 
3 1115 P1245 1 HAR-ENT('f*, HEXDIGIT, ALPHABETIC, IDENT-ANYWHERE), : 
3 1116 P 1 46 1 CHAR-E be ALPHABETIC, IDENT ANYWHERE), ; 
: 1117 P1247 1 CHAR-ENT('h', OTHER, © ALPHABETIC, IDENT ANYWHERE), ; 
; 1118 P1248 1 CHAR-ENT("'{', OTHER, ALPHABETIC, IDENT ANYWHERE), : 
3 1119 P1249 1 CHAR Cite THER, ALPHABETIC, IDENT-ANYWHERE), ; 
3 1120 P1250 1 CHAR-ENT(*k', OTHER, | ALPHABETIC, IDENT_ANYWHERE), : 
; 1121 P1251 1 CHAR-ENT('L', OTHER, | ALPHABETIC, IDENT_ANYWHERE), ; 
311 5 P 1 6 1 CHAR-ENT('m', OTHER, | ALPHABETIC, IDENT_ANYWHERE), ; 
; 112 P1253 1 CHAR-ENT('n', OTHER, ALPHABETIC, IDENT_ANYWHERE), ; 
; 11¢6 P1254 1 CHAR-ENT('o', OTHER, ALPHABETIC, IDENTANYWHERE), ; 
+ 1125 P1255 1 CHAR-ENT("p', OTHER, ALPHABETIC, IDENT_ANYWHERE), i 
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ALPHABETIC, IDENT_ANYWHERE), 
: 1 Sse 3 CHARCENTC'F*: OTHER, ALPHABETIC. IDENT ANYWHERE) , 
A HD) REESE ti, SUE [eS ATES remnnaron 
; P 1 CHARTENT(' ti, ° PHABETIC, IDENT-ANYWHERES, 
A FW) RS He Me Corea remmvaron 
; Bi HAR_ENT(‘'w', OTHER, i - YWHERE 
711 P 1g6¢ | Bnet Cee’ o ALPHABETIC, IDENT~AN . 
; P1263 1 CHAR_ENT( x). ABETIC, IDENT-ANYWHERE). 
ABP) RSS te RBMHIE PERS 
; 1135 - ; NUMBER_START), 
: P 1066 1 ‘ , IDENT_MIDDLE, IDENT_END, - 
AWB FIRE] BMLARe: piel: piety Raia: eg. mages rg 
; 1138 AR“ENT('2". DIGIT, D ’ a * IDENT-END, NUMBER START). 
: 1140 P1270 1 EWARCENT("G*; DIGIT, DIGIT, IDENT-RIDDLE. ipent-pre? Wumen-atant- 
: 1141 P1592 4 CHARTENT('S®* DIGIT, DIGIT: IDENT“MIDDLE, IDENT“END, NUMBERTSTART). 
1145 : ) CHARCENTC“ > bigit: DIGIT: IDENT-MIDOLE: DENT-END, NUMBER-START), 
114 P1273 1 ARTENT('7"; DIGIT, | DIGIT, IDENT-MIDDLE, I TIEND, NUMBER-START), 
; 1144 e iste | CHARTENT('B"” DIGIT. DIGIT. IDENT“AIDDLE, IDENT“END, NUMBER" START) 
; 1275 1 CHAR_ENT('8", ° , IDENTIMIDDLE, IDENT~END, - ‘ 
Sie? p 1376 CHARTENT('9*; DIGIT, DIGIT, IDENTZ 
; 1148 P 1578 ! ee 9° OTHER: SPACE: ! Tab character 
4 P 1279 - ° . NOTHING), 
2 Sas es 
His Bie | RRR Te aoa eem_own. 
2 143 ARENT('X", OTHER, ; 
: 1154 P1284 1 CHARTENT('E', OTHER, NOTHING). 
: P1285 1 GHAR ENTS ee . QUOTE) 
: 138 P1987 | CHARTENT(*(*, “OTHER: OPCHAR ADDRESS OP. TERMINATOR} , 
: 1137 ARTENT(")*, OTHER,  OPCHAR, ix, ADDRESS_OP) 
; 1158 P1288 1 CHARm Emr ceee? OTHER, | OPCHAR, OPCHAR_INFIX, oP), 
; 1159 ois CHARTENT(*s*., PLUS OPCHAR, ADDRESS. OP), 
; 1160 P1290 | CHARTENT(*<** OTHER, TERMINATOR) 
° aa o%e” ° P) 
: ge 1339 CHARTENTC'.*. DOTe RURBER’STARTE EPCRA, ADDRESS_OP, SPECIAL_SYMBOL), 
; P 1¢93 | “ENT(T7"- OPCHAR; ADDRESS_OP), 
We bigs] Bi: Sie. feo ie 
. @ *,e 
Ai eg ee a 
: P 1298 1 EHARCENT(*3°. OTHER, TERATNATORS. 
: 1169 P1299 1 CHARTENTC'? "> OTHER, = NOTHING) 
: 1190 e ieee CHARTENT(*Q"~ OTHER,  OPCHARS ADDRESS_OP), 
: 1171 P1301 1 CHARTENT(*C*; OTHER, NOTHING) , 
: 117 eyes 4 CHARZENT(*\"* OTHER: OPCHAR. SPECIAL_SYMBOL) , 
: 1193 P 1305 1 CHAR -€ T("}". OTHER. ING) 
: 1174 eine } HAR-ENT('**, OTHER, SPECIAL SYMBOL), re 
: 1125 2 06 : CHART T("_*) OTHER, IDENT ATDDLE, IDENT_END), 
: 1176 ARENT('7", OTHER, ‘ 
> 1177 P1307 1 CHARTEWTe'C’” OTHER HING), 
: P1308 1 GHAR ENTS te! > NOTHING), 
: 1178 P 1309 1 CHARTENTC'3* OTHER” NOTHING) ¢_ 
Pe OUR | BAMRCEMISS gree mornings 
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LANGUAGE UNKNOWN PARSE TABLES 


peer aR ER 


This section contains all Lexical Scanner and Parser tables for 
Langue e@ UNKNOWN, Language “UNKNOWN constitutes the Language 
facilities made available by DEBUG when the actual source oe es 
is not known to DEBUG. The main use for Language UNKNOWN is to 
provide a basic level of DEBUG a ort for new languages which are 
not yet explicitly supported by DEBUG with its own syntax and 
semantics. 


(Language UNKNOWN comes first because some of the other oe 
make references to the UNKNOWN number table. The rest of the languages 
are in alphabetical order.) 


Define the Language UNKNOWN Character Table. 


me ee ee ee ee ee 


; 1183 1 1 1 

: tee 13135 1 

; 1185 1314 1 

; 1136 1315 1 

; 118 1 16 1 

; 1188 1317 1 

; 1189 1 1 1 

+ 1190 1319 1 

3; 1191 1320 1 

; 1136 1321 1 

3 119 1 ; 1 

3 1194 1 1 

1136 1395 | 

; 1199 1326 1 

; 1198 1327 1 

; 1199 1328 1 

: 1200 by ae 

: 1201 1330 1 

; 1 4 P 1331 1 CHAR_EXCEPTION TABLE (UNKNOWN _CHARTBL, 

; 120 P 1336 1 CHAR_ERTRY('S', OTHER, OPCHAR), 

>; 1204 P 1333 1 CHAR_ENTRY('/*, OTHER, OPCHAR, OPCHAR_INFIX, ADDRESS_OP), 

; 1205 P 1334 1 CHAR_ENTRY(°<*, OTHER, OPCHAR, OPCHAR_INFIX, ADDRESS OP), 

; 1206 P1335 1 CHAR_ENTRY(*=", OTHER, OPCHAR, HAR_INFIX, TERMINATOR), 

: 1207 P 1336 1 CHAR_ENTRY('>", OTHER, OPCHAR, OPCHAR_INFIX, TERMINATOR), 

; 1208 P 1337 1 CHAR_ENTRY(***, OTHER, OGPCHAR, SPECIAC_SYMBOL), 

3 1209 P1338 1 CHARTENTRY(* LC. OTHER, OPCHAR 

3 1210 1339 1 CHARTENTRY(')", OTHER, TERMINATOR)); 

3; 1211 1340 1 

; Isi¢ 1341 1 

3; 121 1346 1 ! Define the Language UNKNOWN Operator Table for operators whose names are 
3; 1214 1343 1 ! identifiers. 

; 1215 1344 1! 

3; 1216 P 1345 1 OPERATOR_TABLE (UNKNOWN_IDENT_OPTBL, 

3; 1217 P 1346 1 PERATOR_ENTRYC'EQL', INFIX, 50, 50), 

> 1218 P1347 1 OPERATOR-ENTRY('NEG’, | NOT_EQUAL, INFIX, 50, 50), 

3 1219 P1348 1 OPERATOR-ENTRY('GTR', GTR-THAN, INFIX, 50, 50), 

; 1220 P 1349 1 OPERATOR-ENTRY('GEQ',  GTRIEQUAL, INFIX, 50, 50), 

3 1221 P 1350 1 OPERATOR_ENTRY(*LSS*, LSS_THAN, INFIX, 50, 50), 

; 122¢ P1351 1 OPERATOR-ENTRY(*LEQ’, LSS~EQUAL, INFIX, 50, 50), 

, 7 P 1336 1 OPERATOR_ENTRY('NOT’, NOT, PREFIX, 200, 40), 

3; 1224 P1353 1 OPERATOR_ENTRY('AND’, AND, INFIX, 30, 30), 

3; 1225 P 1354 (1 OPERATOR_ENTRY( ‘OR? , OR INFIX, 20, 20), 

i 1286 P 1355 1 OPERATOR-ENTRY('XOR', XOR, INFIX, 19. 19) 

31 1356 1 OPERATOR-ENTRY(*EQV',  EQV, INFIX, 10, 10)5; 
We TRE 

3 1380 1359 1 ! Define the Language UNKNOWN Operator Table for operators whose names are 
: 1231 1360 1 : composed of operator characters such as ‘'+’’, ‘'|", or ‘‘#’’, This table in- 
; ! § : o 1 cludes operators which are part of Primary Symbols (such as ‘'\'’ and "."’). 
3; 1234 P 1 $8 1 OPERATOR_TABLE (UNKNOWN OPCHAR_OPTBL 

; 1235 p 1364 1 OPERATOR_ENTRYT'\', GLOBAL_SLASH, PREFIX, 0, 0, PRIMARY), 
: 1536 P 1365 1 OPERATOR_ENTRY('\', BACKSLASH, INFIX, Q, 0, PRIMARY), 
3 123 P 1 06 1 OPERATOR_ENTRY('.', DOT INF IX - 0, PRIMARY), 
: 1238 P 1367 1 OPERATOR_ENTRY('(', SUBSCRIPT, POSTFIX.0, 0, PRIMARY), 
; 1239 P 1368 1 OPERATOR_ENTRY('C', SUBSCRIPT, POSTFIX,0, 0, PRIMARY), 
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; } “0 4 } 4 } OPERATOR_ENTRY('*', PASCAL_DEREF, POSTFIX,0, 0, PRIMARY), 
3 126 P1371 1 OPERATOR_ENTRY('//', CONCATENATE, INFIX, 60, 60), 
3 126 P 1 oe 1 OPERATOR_ENTRY('S', CONCATENATE, INFIX, 60, 60), 
+ 1264 P1373 1 OPERATOR-ENTRY('+", D INFIX, 60, 60), 
: 1245 P1374 1 OPERATOR-ENTRY('=", UBTRACT, INEIX, 89. $0). 
+ 126 P1375 1 OPERATOR_ENTRY('+', UNARY_PLUS PREFIX, 3 0, 70), 
> 1246 P 1 ud: 1 OPERATOR-ENTRY(‘=", UNARY-MINUS, PREFIX, 200, 70). 
; 1248 P1377 1 OPERATOR_ENTRY('®#', ULTIPLY, INFIX, 50. 30). 
+ 1269 P1378 1 OPERATOR_ENTRY('/* DIVI INFIX, 0, 80), 
: 1250 P1379 1 OPERATOR-ENT&@r{ * ee OF, INFIX, 92, 90), 
31 2 Pi 80 1 OPERATOR-ENTRY(*=" INFIX, 50, 20). 
:1 é P1381 1 OPERATOR-ENTRY ("<> NOT_EQUAL, INFIX, 50, 50), 
3 125 P 1 8¢ 1 OPERATOR_ENTRY('/=' NOT-EQUAL, INFIX, 50, 50), 
3 1254 P1383 1 OPERATOR_ENTRY('>* “THAN, INFIX, 50, 50), 
: 1255 P1384 1 OPERATOR_ENTRY('>= GTR-EQUAL, INFIX, 50, 50), 
: 1256 Pp 1385 1 OPERATOR_ENTRY('<' LSS_THAN, INFIX, 50, 50), 
3 125 P 1386 1 OPERATOR_ENTRY('<= LSS-EQUAL, INFIX, 50, 50), 
3 1238 P1397 4 OPERATOR-ENTRY(*(*, OPENPAREN, PREFIX, 200, 5, LEXICAL) 
3 1259 1968 1 OPERATOR_ENTRY(')*, CLOSEPAREN, POSTFIX, 6, 200, LEXICAL)S; 
3 1590 1389 1 
: 1261 1390 1 
3 1¢6¢ 1391 1! Define the UNKNOWN Terminator Lexical Token Table for supssyiet expressions. 
3: 126 1398 1 | Here we allow subse ripe expressions to be terminated by ' (end of sub- 
3 1306 1ee7 : ; scripts) and by ' (more subscripts to follow). 
3 1266 P 1395 1 TERMINATOR TABLE (UNKNOWN ayesct TERM_T 
3 1267 P1396 1 TERMINATOR_ENTRYT' TERM_ CLOSE: BALANCED _PARENS), 
3 1268 P 1397 1 TERMINATOR@ “ENTRY(')*, TERM~CLOSE, BALANCED PARENS), 
: 1269 P1398 1 TERMINATOR_ENTRY(':', TERM-COLON, MUST_BE_SINGLE), 
: 1270 1399 1 TERMINATOR-ENTRY(",". TERM~COMMAS); 
: 1271 1400 1 
: 1278 1401 1 
3; 127 1288 1 ! Define the Language UNKNOWN Number Scanner State Table. This is a finite-state 
A igre 1ebz : machine in which each transition is of the form: 
: \$78 1632 : NUMBER_TRANSITION(character-class, action-index, next-state) 
3 1596 1407 1 ! where the character-class and action-index names are automatically prefixed 
3 if t4 4 1438 : : by "'NUMSTSK_CLASS_"’ or "'NUMSTSK_ACT_"’ by the NUMBER_TRANSITION macro. 
3 1281 4 1419 NUMBER_STATE_TABLE (UNKNOWN_NUMBER_TABLE, 
: 1388 Pp aie 1 NUMBER STATE (START STATE 
: 1 P1413 1 NUMBER_TRANSITION(D 1611, GO_PAST_DIGIT, ACCUM_INT), 
3 1285 P1414 1 NUMBER TRAN ANSI TIONCD ARK-DEC_PT, LEADING DOT), 
: 1286 P 1415 NUMBER~TRANSITION(O. BOnER NOT PRURBER, END_STATE)). 
3 1583 Pp 1419 1 NUMBER STATE (LEA DING DOT 
> 1289 P1418 1 NUMBER _TRANSITION(DIGIT, GO_PAST FRAC ACCUM FRAC), 
: 1290 P 1619 NUMBER TRANSL TIONCOTHER NOT_NUMBER, END_STATE)), 
: 1 9 P1421 1 NUMBER STATE (AC CUM_INT 
+ 129 P 14 é 1 ER_ SITION(HIGIT, GO_PAST_DIGIT, ACCUM_INT), 
> 1294 P1423 1 NUMBERTTRANSITION(DOT TAARRe =PEC PT, ACCUM FRAC) 
+ 1295 P 1426 1 NUMBER™TRANSITION(HEXOIGIT 5 ROTHING. accu HEX), 
+ 1296 P1425 1 NUMBER-TRANSITION(B, DO_ dO tuiae. ACCUM, HEX) 
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: 1297 P 14 5 1 NUMBER_TRANSITION(D, DO_NOTHING, ACCUM_HEX), 

: 1298 P1407 1 NUMBER-TRANSITION(E, DO-NOTHING, ACCUM~HEX) 

; 99 P 14 : NUMBER-TRANSITION(OTHER; GOT_NUMBER, END_STATE)), 

; 1301 P1430 1 NUMBER_ STATE (ACCUM_HEX 

i 1308 P1431 1 NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_HEX) 

: 130 P 14 ; 1 NUMBER-TRANSITION(HEXDIGIT, "DO_NOTHING, ACCUM_HEX), 

: 1 P1433 1 NUMBER-TRANSITION(B, DO_NOTHING, ACCUM_HEX), 

: 1305 P1434 1 NUMBER-TRANSITION(D, DO-NOTHING, ACCUM-HEX), 

> 06 P1435 1 NUMBER TRANSITION(E, DO-NOTHING, ACCUM-HEX) 

; 4 P 14 6 NUMBER-TRANSITION(OTHER, GOT_NUMBER, END_STATE)), 

: 1309 P1436 1 NUMBER_ STATE (ACCUM_FRAC 

; 1310 P1439 1 NUMBER_TRANSITION(DIGIT, GO_PAST_FRAC, ACCUM_FRAC), 

; 1311 P1440 1 NUMBER-TRANSITION(DOT, BACKOP_PTRS, END STATE), 

: 1 lg P1641 1 NUMBER-TRANSITION(E, MARK_E_ERP, GET EXPONENT). 

> 131 P 1448 1 NUMBER-TRANSITION(D, MARK-D-EXP, GET-EXPONENT), 

: 1314 P1443 1 ER-TRANSITION(G, MARK-G-EXP, GET-EXPONENT), 

> 1315 P1444 1 NUMBER-TRANSITION(Q, MARK-Q-EXP, GET-EXPONENT) 

; 1318 P 1445 ER-TRANSITION(OTHER, GOT_NUMBER,END_STATE)), 

; 1318 P 1209 1 NUMBER_STATE (GET_EXPONENT . 

; 1319 P1448 1 NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_EXP), 

: 1320 P1469 1 NUMBER-TRANSITION(PLUS, DO_ROTHING, GET_EXP SIGN) 

: 1321 P1450 1 NUMBER-TRANSITION(MINUS, DO_MOTHING, GET_EXP SIGNS, 

; 132¢ P 1431 NUMBER TRANSITION(OTHER, BACKUP_PTRS, END_STATE)), 

; 1324 P 1288 1 NUMBER_STATE(GET_EXP_SIGN 

; 1329 P1454 1 NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_EXP) 

; 1326 P 1455 NUMBER TRANSITION(OTHER, GOT_NUMBER, END_STATE)S, 

: 1328 P1457 1 NUMBER_STATE (ACCUM_EXP, 

3 1398 P1458 1 NUMBER_TRANSITION(DIGIT, DO NOTHING, ACCUM_EXP) 

; 13 9 4 1659 NUMBER TRANSITION(OTHER, GOT_NUMBER, END_STATE)S, 

: 13382 P1461 1 NUMBER_STATE(END_STATE, 

3 133 1668 1 NUMBER_TRANSTTION(OTHER, GIVE_ERROR, END_STATE))); 

; 1334 1463 1 

: 13 5 1464 1 

3 1338 1662 ' Define the Language UNKNOWN Predefined Identifier Table. 

: 1338 1269 1 PRID_TABLE(UNKNOWN_PRID_TABLE); 

3 1339 1468 1 

: 1340 1469 1 

; ! 1 tA ; Define the Language UNKNOWN Built-in Function Table. 

; 1328 147 1 BUILT_IN_FUNCTION_TABLE (UNKNOWN_FUNCTION_TABLE) ; 

> 1344 1473 1 

> 1345 1474 1 

; 1348 1602 : Define the Primary Parser State Table for Language UNKNOWN. 

; 1348 p 1477 PRIMARY_STATE_TABLE(UNKNOWN_PRIMARY_TABLE, 

; 1380 P1479 1 PRIMARY STATE (START_STATE 

> 1351 P1480 1 PRIMARY_TRANSITION(GLOBAL_SLASH, START_GBL, GET GLOBAL), 
; 133¢ P 1481 1 PRIMARY-TRANSITION(BACKSLASH, START SLASH, GOT BACKSLASH) , 
> 135 P1482 1 PRIMARY-TRANSITION(INVOCNUM, SLASH_TNVOCNUM, GOT_BACKSLASH), 
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3 1354 P 1483 1 PRIMARY TRANSITION(DOT, START_DOT, GOT_DOT), 
3; 1355 P 14 1 PRIMA ANSITION(SUBSCRIPT, START SUBSCR, GOT SUBSCRIPT), 
: 1 § P1485 1 PRIMARY" “TRANSITION(PASCAL_DEREF, START_DEREF, GOT_DEREF), 
: | P 16 $ | PRIMARY_TRANSITION(PRIMARY_TERM, START_TERM, END_STATE)), 
3: 1 8 P1488 1 PRIMARY_STATE(GET_GLOBAL 
; ' 9 4 1682 } PRIMARY_TRANSTTION(PRIMARY_ TERM, GBL_TERM, END_STATE)), 
: 1 6 P1491 1 PRIMARY_ STATE (GOT_BACKSLASH 
: 1 Pp 1638 1 PRIMARY_TRANSITION (BACKSLASH, SLASH SLASH . GOT_BACKSLASH), 
3 1364 P1493 1 PRIMARY_ eet iotpayeree SLASH_INVOCNUM, GOT_BACKSLASH), 
3 1365 P1494 1 PRIMARY_TRANSITION(DOT Une _D 1 DOT), 
31 P1495 1 PRIMARY TRANSITION (SUBSCR cRiPt “SLASH_SUBSCR, GOT SuBscRIPT), 
31 P1496 1 PRIMARY_TRANSITION(PASCAL_DEREF, SLASH_DEREF, GOT_DEREF) 
3 : : . op 14 : PRIMARY_TRANSITION(PRIMA RY OF ERM. SLASH-TERM, END_STATE)), 
: 1370 P1499 1 PRIMARY STATE (GO OT_DOT, 
3 1371 P1500 1 PRIMARY_ STTION(DOT, DOT_DOT, GOT _DOT) 
: 1378 P1501 1 PRIMARY-TRANSITION( SUBSCR IPT, DOT payesch *GOT_SUBSCRIPT), 
> 137 P 1308 1 PRIMARY-TRANSITION(PASCAL_DEREF EREF, GOT_DEREF 
: 137% 4 1303 ! PRIMARY_TRANSITION(PRIMAR bye OF ERM, pot “TERM, “END_STATE)). 
; 138 pe 1505 1 PRIMARY_STATE(GOT_SUBSCRIPT, 
3 1377 P i506 1 PRIMARY_TRANSITION(DOT, SUBSCR_DOT, GOT_DOT) 
3 1378 P1507 1 PRIMARY TRANSITION(SUBSCR SuBsCr_SUBSCR, GOT SUBSCRIPT), 
3 1379 P1508 1 PRIMARY TRANSITION(PASCAL_DEREF, SuBScR _DEREf, GOT_DEREF), 
3 1380 4 1309 ! PRIMARY_TRANSITION(PRIMARY_TERM, SUBSCR-TERM, END_STATE)), 
3 138¢ P1511 1 PRIMARY_STATE(GOT_DEREF, 
3 138 Pp 1218 1 MARY_TRANSITION(DOT, DEREF_DOT, GOT_DOT) 
3 1384 P1513 1 PRIMARY-TRANSITION(SUBSCRIPT, DEREF SUBSCR, GOT_SUBSCRIPT), 
3 1385 P1514 1 PRIMARY_TRANSITION(PASCAL DERER. bEREE _DEREF, GOT_DEREF), 
3 1339 , 131? : PRIMARY_TRANSITION(PRIMARY_TERM, DEREF~TERM, END_STATE)). 
3; 1388 1319 1 PRIMARY_STATE(END_STATE)); 
3 1389 1518 1 
3; 1390 1519 1 
3 4 1330 \ Finally define the table of pointers to the parse tables for language UNKNOWN. 
; 1398 P 1388 1 LANGUAGE = TABLES (LANGUAGE _ = UNKNOWN 
> 1394 P1523 1 CHARTBL = AUNKNOWN CHARTBL, 
3 1395 P1524 1 IDENT OPTBL = UNKNOWN IDENT 
: 1396 P1525 1 OPCHAR_OPTBL = YUNENOUR TOPCHER POPTAL, 
: 1397 Pp 1366 1 s _UNKNOWNE NUMBER— I it 
3 1398 P 15 1 PRIMARY TABLE = UNKNOWN PRIMARY TASLE, 
3 1399 P1528 1 SUBSCR_TERMS = UNKNOWN_ sUpscr _TERM_TBL, 
: 1400 Pp 1349 1 PRIDTBC = UNKNOWN PRID-TABLE,~ 
3 1401 1530 1 Bit TABLE = UNKNOQN_ FURCTEON, TABLE); 
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3; 1403 1531 1! ADA PARSE TABLES 

3 1404 1 ¢ 7% 

3; 1405 1 1! 

: Jone 1534 1! 

; 140 1535 1! This section includes all the Lexical Scanner and Parser tables needed 
: 1608 1536 1! to scan and parse the ADA Language. 

3; 1409 1 7-3 5 

3; 1410 1538 1! 

3 1411 1539 1! 

r 1218 1540 1! Define the ADA Character Table. What is Listed here My actually a list of 
; 1ehz 136) ; exceptions to the Character Table for Language UNKNOWN 

3 1415 P 1308 1 CHAR cee VALE LAA CHARTBL, 

3 1416 P1544 1 R_ENTRY(**** OTHER NOTHING) 

3 1417 P1545 1 GUAR “ENTRY! * , "UNDERSCORE 1pEnt MIDDLE), 

> 1618 P 1346 1 CHARTENTRY('R", POUND, NOTH HING 

3 1419 P 154 1 CHAR_ENTRY('@&*, OTHER, OPCHA 

: 1420 P 1548 1 CHAR_ENTRY('/", OTHER, OPCHAR “OPCHAR _INFIX, ADDRESS_OP), 

3; 1421 P 1549 1 CHAR_ENTRY('<", OTHER, OPCHAR, OPCHAR_INFIX, ADDRESS OP), 

3 1056 P 1550 1 CHAR -ENTRY(*=", OTHER, OPCHAR, 8 pe JINFIX, TERMINATOR) , 

3 14 P 1551 1 CHAR “ENTRY(' >*, OTHER, OPCHAR, OPCHAR_INFIX, TERMINATOR) 

; lose 1226 : CHAR “ENTRY('.", DOT, OPCHAR, ADDRESS_OP, SPECIAL _SYMBOL, TERMINATOR)); 
; 1496 1554 1 

3 He t4 1322 ! Define the ADA Operator Table for operators whose names are identifiers. 
H P44 P 1557 1 OPERATOR Ly 5 be IDENT OPTBL, 

3; 1430 P 1558 1 OPERA ENTRY(' Rot’, NOT, PREFIX, 200, 60), 

3 1431 P1559 1 OPERATOR-ENTRY* ABS', ABSOLUTE, PREFIX, 200, 60), 

3 ee P 1560 1 OPERATOR_ENTRY(*MOD', MODULUS, INF IX, 50, 50), 

3 143 P 1561 1 OPERATOR_ENTRY(*REM’, REMAINDER, INFIX, 50, 50), 

3 1434 P 126¢ 1 OPERATOR_ENTRY( ‘AND’, AND, INF IX, 10, 10), 

3 1435 P 156 1 OPERATOR_ENTRY YC"OR' . OR, INF IX, 10, 10) 

3 14636 1564 1 OPERATOR-ENTRY(*XOR®, XOR, INFIX, 10, 10)5; 

3 1437 1565 1 

3; 1438 1566 1 

3 1439 1567 1 ! Define the ADA Operator Table. for operators, whose names are composed of 

3: 14460 1568 1 ! operator characters such or his table includes operators 
3 ree. 1368 ' iw which are part of DEBUG a Mea "Symbols touch as ‘'\"’). 

é 1208 P 1571 1 OPERATOR Uy 93 Se wcren ~OPTBL. 

3 1444 Pp 1328 1 OPERA ERTRY('\", GLOBAL_ SLASH, PREFIX, 0, 0, PRIMARY), 

: 14465 P1573 1 OPERATOR-ENTRY (A: BACKSLASH, INFIX, 0, 0, PRIMARY), 

s Hers P 1574 1 OPERATOR_ENTRY (". “ DOT INF IX 0, 6. PRIMARY), 

; rat} : 132? ’ OPERATOR_ENTRY(* i SUBSCRIPT, POSTFIXx,0. . PRIMARY), 

3 1449 P 1279 1 OPERATOR_ENTRY(' (*, OPENPAREN, PREFIX, 200, 5, LEXICAL), 
3: 1450 P1578 1 OPERATOR_ENTRY(' ' CLOSEPAREN, POSTFIX, 6, 200, LEXICAL), 
> 1451 P1579 1 OPERATOR-ENTRY (‘ee POWER_OF, INF IX, 60. 605," 

s 1638 P 1580 1 TOR-ENTRY('#', MULTIPLY. INFIX, 8° 50), 

3 145 P 1581 1 OPERATOR_ENTRY('/*, DIVIDE INFIX, 50, 50). 

> 1454 P15 : 1 OPERATOR-ENTRY('+", UNARY_PLUS PREFIX, 300, 40); 

3; 1455 P15 1 OPERATOR_ENTRY('=', UNARY “MINUS, PREFIX, ° $0) 

8 1628 P 1288 1 OPERATOR_ENTRY(‘°+', AD INF IX, * FP 

: 145 P1585 1 OPERATOR-ENTRY(*=", SUBTRACT INF IX, » 30), 

> 1458 P 1386 1 OPERATOR-ENTRY('S", CONCATENATE,, INF IX, 0. 0): 

; 1459 P 15 1 OPERATOR_ENTRY(*=', EQUAL, INF IX, 20, 0), 
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M15 
16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 
10398-1382 93319549 DEBUG. SRC JDBGPARSER.B32; 1 
OPERATOR_ENTRY('/=", § NOT_EQUAL, INFIX, 20, 20), 
OPERATOR-ENTRY(*<' LSS-THAN, INFIX, 20, 20), 
OPERATOR_ENTRY('<=", LSS_EQUAL, INFIX, iS Pe 
OPERATOR-ENTRY(*>* GTR-THAN, INF IX, > 20) 
OPERATOR-ENTRY(">=', § GTRTEQUAL, INFIX, 20, 20)5; 


Define an Operator Lexical Token Entry for the ADA Tick operator ‘"'’’. 
This token is ockyar ly used to represent a collection of postfix 

tick operators ("FIRST’, "LAST, ...). The lexical scanner will 
niet in the subcode field which identifies which tick operator was 
giv 


ADA_TICK_TOKEN = OPERATOR_ENTRY(''"', ADA_TICK, POSTFIX, 0, 0, PRIMARY); 


: 


ADA_TICK TABLE: VECTOR CTOKENSK_TICK_MAX+1] PSECT(DBGSPLIT) PRESET ( 
TOKENSK_TICK_CONSTRAINED] = UPLIT (ZASCIC 'CONSTRAINED') = TABLEBASE, 
TOKENSK-TICK~FIRSTJ = UPLIT (ZASCIC ‘FIRST’) - TABLEBASE. 
TOKENSK~TICK~LASTJ = UPLIT (ZASCIC "LAST’) - TABLEBASE. 
TOKENSK~TICK-LENGTH) = UPLIT (ZASCIC "LENGTH') - TABLEBASE. 
TOKENSK-TICK~POS] = UPLIT (ZASCIC 'POS') - TABLEBASE. 
TOKENSK—T1CK~PRED] = UPLIT (ZASCIC 'PRED’) - TABLEBASE. 
TOKENSK~TICK~SIZEJ = UPLIT (ZASCIC 'SIZE") - TABLEBASE. 
TOKENSK~TICK~SUCCJ = UPLIT (ZASCIC 'SUCC') - TABLEBASE, 
TOKENSK~TICK~VALJ = UPLIT (ZASCIC ‘VAL') - TABLEBASES ; 


Define the ADA Terminator Lexical Token Table for subscript expressions. 


TERMINATOR_TABLE (ADA SUBSCR_TERM_TBL, 
TERMINATOR_ENTRY(')*, TERM_CLOSE), 
i TENTRY(':*) TERM-COLON, MUST_BE_SINGLE), 
TERMINATOR-ENTRY(*..°, TERM~COLONS 
TERMINATOR-ENTRY(",*, TERM~COMMA) 5; 

Define the ADA Predefined Identifier Table. 


PRID_TABLE(ADA_PRID_TABLE); 


: Define the ADA Built-in Function Table. 
BUILT_IN_FUNCTION_TABLE (ADA_FUNCTION_TABLE); 
This table defines the states 


of a Finite-State Machine which picks up all valid numeric constants in the 
Language. 


Define the ADA Number Scanner State Table. 


TRANSITION(character-class, action-index, next-state) 


1 

i 

i 

i 

' Each transition is of the form: 
NUMBER 

. The ADA standard defines a number to be of the form: 


: 
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v04 12-80 8-198e 1 19:43 DEBUG. SRC JDBGPARSER.B32;1 . (6) 
; 1517 1645 1! number literal ::= integer C.integer] Cexponent] 
; 1518 1968 7! integer ::= digit_{ Cunderline] digit } 
3 ; 8 196 : exponent ::= E [+] integer : E - integer 
; 1521 1868 1 ! Examples: 
; 15 g 1650 1! 
3 15 1651 1! 3 1&6 12 456 integer literals 
; 1 2 1626 : 12.0 3.141_592 1.32E+6 real Literals 
3 \ : 1928 ' The ADA standard also defines a based number to be of the form: 
>; 1528 1936 2 base # based_integer C.based_integer] # CLexponent] 
; 1529 1657 1! ase ::= intéger ee 
; 1530 1658 1! based_integer ::= extended_digit { Cunderline] extended_digit } 
: 133) 1659 1! extended_digit ::= digit !"letter 
3; 15 ¢ 1660 1! 
3; 15 1661 1 ! Examples: 
3; 15 106¢ 1! 
3; 1535 1665 1! 241111_11118 16MFF A integer literals 
; 1536 1664 1! 16OMFF .FFME+2 real literal 
3; 1537 1665 1! 
; 1538 p 1666 1 NUMBER_STATE_TABLE (ADA_NUMBER_TABLE, 
; 1539 P 1667 1 
; 1540 P 1668 1 NUMBER STATE(START STATE, 
3 1541 P 1669 1 NUMBER_TRANSITION(DIGIT, DO NOTHING, ACCUM_INT) 
; 1348 P 1670 i NUMBER-TRANSITION(OTHER, NOT_NUMBER, END_STATE)S, 
3 1544 P 1672 1 NUMBER _STATE(ACCUM_INT, 
3 1545 P 1673 1 NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_INT), 
3 1546 P1674 1 NUMBER-TRANSITION(UNDERSCORE, DO_NOTHING, T_ACCUM_INT), 
3 1547 P 1675 1 NUMBER-TRANSITION(POUND, SAVE_BASE, B_START-STATED, 
3 1548 P 1676 1 NUMBER-TRANSITION(DOT, MARK _DEC_PT, ACCUM FRAC), 
3 1549 P 1677 1 NUMBER-TRANSITION(E, DO_NOTRING, GET_EXPONENT) 
; 1390 P 1678 NUMBER~TRANSITION(OTHER, GOT_NUMBER, END _STATE)), 
3 1938 P 1680 1 NUMBER _STATE(T ACCUM INT 
3 155 P 1681 1 NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_INT) 
; 1394 1682 NUMBER TRANSITION(OTHER. NOT_NUMBER, END_STATE)S, 
; 1556 P 1684 1 NUMBER STATE (ACCUM_FRAC 
3 1557 P1685 1 NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_FRAC), 
; 1558 P 1686 1 NUMBER~TRANSITION(UNDERSCORE, DO_NOTHING, T ACCUM_FRAC), 
3 1559 P 1687 1 NUMBER-TRANSITION(DOT, NOT NUMBER, END STATE 
; 1560 P 1688 1 NUMBER-TRANSITION(E, MARK_E_EXP, GET_ERPONENT), 
5 1561 P 1689 1 NUMBER-TRANSITION(D, MARK“D-EXP, GET"EXPONENT), 
3 136¢ P 1690 1 NUMBER-TRANSITION(G, MARK"G_EXP, GET"EXPONENT), 
3 156 P 1691 1 NUMBER-TRANSITION(Q, MARK~Q-EXP, GET~EXPONENT) 
; 1366 p 1698 NUMBER-TRANSITION(OTHER, GOT_NUMBER,~END_STATES), 
3 1566 P 1694 1 NUMBER_STATE(T_ACCUM_FRAC 
> 1567 P1695 1 NUMBER_TRARSITIOR(DIGIT, DO_NOTHING, ACCUM_FRAC), 
; 1268 Pp 1696 NUMBER TRANSITION(OTHER, NOT_NUMBER, END_STATE)), 
; 1399 P 1698 1 NUMBER_ STATE (GET_EXPONENT 
3 1571 Pp 199 1 NUMBER_TRANSTTION(DIGIT, DO_NOTHING, ACCUM EXP), 
: 1376 P1700 1 NUMBER TRANSITION(PLUS, DO NOTHING, GET_EXP SIGN) 
3 157 P1701 1 NUMBER-TRANSITION(MINUS, DO_NOTHING, GET_EXP SIGNS, 
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; 1631 1759 «#1 NUMBER_TRANSITION(OTHER, GIVE_ERROR, END_STATE))); 

; 16 ; 1760 1 

; 16 1761 1 

; 16 1706 1 ! Save away the value of the B_START_STATE state for ADA. This will be 
; 1635 1765 1 ! used Later in the number scanner. 

; 1636 1764 1! 

; 1637 1765 1 COMPILETIME 

; 16358 1798 1 REMEMBER _ADA_B_START_STATE = 0; 

; 1977 4 14 : ZASSIGN (REMEMBER_ADA_B_START_STATE, NUMSTSXX_STATE_B_START_STATE); 

3; 1641 1769 1 

3 1946 1770 1 ! Define the Primary Parser State Table for language ADA. Each transition 
3 bo 48 : Entry in the state table has this format: 

3 Hb oF 1778 : PRIMARY_TRANSITION(operator-code, action, next-state) 

3 1647 1775 1! where the first parameter is the operator code which causes the transition 
; 1648 1776 1 ! to be taken, the second parameter is the action routine CASE index for the 
3 1649 1777 1°! transition, and the third parameter is the next state in the Finite-State 
; 1650 1778 1 ! Machine. 

3 1651 1779 1! 

; 1632 P 1780 1 PRIMARY_STATE_TABLE(ADA_PRIMARY_TABLE, 

; 165 P 1781 1 

3; 1654 P 178¢ 1 PRIMARY STATE(START_STATE 

; 1655 P1783 1 PRIMARY_TRANSITION(GLOBAL_SLASH, START_GBL, GET_SLOBAL), 

: 1656 P 1784 1 PRIMARY_TRANSITION(BACKSLASH, START SLASH, GOT BACKSLASH), 

: 1657 P1785 1 PRIMARY _TRANSITIONCINVOCNUM, SLASH_INVOCNUM, GOT_BACKSLASH), 

; 1658 P 1786 1 PRIMARY_TRANSITION(DOT START_DOT GOT_DOT), 

3; 1659 P 1787 1 PRIMARY TRANSITION(SUBSCRIPT, START_SUBSCR, GOT SUBSCRIPT), 

3; 1660 P 1788 #1 PRIMARY _ SITION(ADA_TICK, START_TICK, END_STATE), 

3 Hb 98: > 178 } PRIMARY TRANSITION(PRIMARY_TERM, START_TERM, END_STATE)), 

; 1868 P1791 #1 PRIMARY STATE (GET_GLOBAL 

3 1998 : 1738 : PRIMARY _TRANSTTION(PRIMARY_TERM, GBL_TERM, END_STATE)), 

3; 1666 P1794 1 PRIMARY STATE (GOT_BACKSLASH 

3 1667 P1795 1 PRIMARY _TRANSITION(BACKSLASH, SLASH SLASH, GOT_BACKSLASH), 

3 1668 P1796 1 PRIMARY_TRANSITION(CINVOCNUM, SLASH_INVOCNUM, GOT_BACKSLASH), 

3; 1669 P1797 1 PRIMARY_TRANSITION(DOT SLASH_DOT GOT_DOT), 

; 1670 P1798 1 PRIMARY TRANSITION(SUBSCRIPT, SLASH_SUBSCR, GOT SUBSCRIPT), 

3; 1671 P1799 1 PRIMARY_TRANSITION(ADA_TICK, SLASH_TICK, END_ P 

; lore 4 1300 | PRIMARY—TRANSITION(PRIMARY_TERM, SCASH_TERM, END_STATE)), 

3; 1674 P 1306 1 PRIMARY STATE(GOT_DOT, 

3 1675 P 18035 1 PRIMARY_TRANSITION(DOT, DOT_DOT, GOT DOT), 

3 1676 P 1804 1 PRIMARY-TRANSITION(SUBSCRIPT, DOT_SUBSCR, GOT_SUBSCRIPT), 

; 1677 P 1805 1 PRIMARY_TRANSITION(ADA TICK, T_TICK, END_STATE), 

; 1678 4 1306 PRIMARY-TRANSITION(PRIMARY_fERM, DOT_TERM, END_STATE)), 

3; 1680 P 1803 1 PRIMARY _STATE(GOT_SUPSCRIPT, 

; 1681 P 1809 1 PRIMARY_TRANSTTION(DOT, SUBSCR_DOT, GOT_DOT), 

; 1682 P1810 1 PRIMARY-TRANSITION(SUBSCRIPT, SUBSCR SUBSCR, GOT SUBSCRIPT), 

3 ios 4 H+ : PRIMARY~TRANSITION(PRIMARY_TERM, SUBSCR_TERM, END_STATE)), 

: 1688 1818 1 PRIMARY_STATE(END_STATE)); 

3; 1686 1814 1 

; 1687 1895 1 


3 
G 


2 
p 


AR 


v4 
S 


0- 
R 


7 
B 


$3.1 


Page 31 
. (6) 


vos-000°" Ebeoe}9Re QB10e13  YASGNY SLUSSGRE tesO 202 ie 


3 1088 ! 1 ! Define the table of pointers to the parse tables for ADA. 
3; 1690 P 1 8 1 LANGUAGE ~ TABLES (LANGUAGE = ADA 

> 1691 P1819 1 CHARTBL = ADA_CHARTBL, 

; 169¢ P 1820 1 IDENT_OPTBL = “ADA IDENT_OPTBL 

> 169 P 18 11 OPCHAR_OPTBL = ADA_OPCHAR_OPTBL, 

3 1694 P 1 é 1 ER-TABLE = ADA-NUMBER- TABLE, 

3; 1695 P 18 1 PRIMARY_TABLE = ADA_PRIMARY TABLE, 

3 1696 P 1824 1 SUBSCR_TERMS = ADA_SUBSCR_TERM_TBL, 

3 1697 P1825 1 pRID Tee = ADA_PRID- TABLE, 

3; 1698 1826 1 BIF_TABLE = ABA_ FUNCTION, TABLE); 


> 


16 
DBGPARSER hese -1984 02:10: AX-11 Bliss-32 V4.0-74 Page 33 
v04-000 1a-Sep-19 4 95:19:43 DEBUG. SRC JDBGPARSER.B32;1 ° 3} 
3 1790 ] 7 ] BASIC PARSE TABLES 
: 120¢ 1 § ii 
; 170 1830 1! 
3 1704 1831 1! This section includes all the Lexical Scanner and Parser tables needed 
: 1702 i? § ! } to scan and parse BASIC expressions. 
: 1707 1834 1/1 
3; 1708 1835 1! 
3; 1709 18 § 1 ! Define the BASIC Character Table. What is Listed here is actually a List 
; 1710 18 1 ! of exceptions to the Character Table for Language UNKNOWN. (Language UNKNOWN 
$ fa 1330 : } Lists the ‘‘average’’ use of each character in the character set.) 
; 1718 P 1840 1 CHAR_EXCEPTION TABLE (BASIC CHARTBL, 
3 ay ; 136) ; eed oe oor te rt Ah IDENT_MIDDLE, IDENT_END, ADDRESS_OP, SPECIAL_SYMBOL), 
: 1716 p 1828 1 CHAR-ENTRY(':'. OTHER, OPCHAR, OPCHAR_INFIX, TERMINATOR), 
3 1717 P 1844 1 CHAR_ENTRY('*", OTHER, OPCHAR, SPECIAC_ SYMBOL), 
; 1718 P 1845 1 CHAR_ENTRY('<', OTHER, UPCHAR, OPCHAR_INFIX, ADDRESS_OP, TERMINATOR), 
3 1719 P 1846 1 CHAR-ENTRY('>", OTHER, OPCHAR, OPCHAR-INFIX, TERMINATOR) 
3 1730 of : CHAR_LENTRY(*=", OTHER, OPCHAR, OPCHAR_INFIX, TERMINATOR) 5; 
: 1728 1849 1 
; Vie? 1339 : } Define the BASIC Operator Table for operators whose names are identifiers. 
> 1725 P 1858 1 OPERATOR_TABLE (BASIC_IDENT_OPTBL 
> 1726 P1853 1 OPERATOR_ENTRY('NOT’, ®BIT_NOT, PREFIX, 200, 45), 
3 1727 P 1854 1 OPERATOR-ENTRY(*AND', BIT "AND, INFIX, 40, 40), 
; 1728 P1855 1 OPERATOR-ENTRY('OR',  BIT"OR, INFIX, 30, 30), 
3 a +4 P 1856 1 OPERATOR_ENTRY('XOR’, BIT_XOR, INF IX, 30, 30), 
3 1730 P1857 1 OPERATOR-ENTRY('IMP', BIT "IMP, INFIX, 20, 20) 
: 1731 1858 OPERATOR-ENTRY(*EQV’, BIT EQV, INFIX, 10, 10)5; 
: 1738 1860 1 
if 1861 1 ! Define the BASIC Operator Table for operators whose names are composed of 
3 1735 1366 1 ! operator characters such as ‘+’, ‘'="", or ‘'*’', This table includes those 
$ He 18e7 : operators which are part of DEBUG Primary Symbols (such as ‘‘\"'). 
: 1738 P 1865 1 OPERATOR_TABLE(BASIC_OPCHAR_OPTBL, 
; 1739 P 1866 1 enone RY('\', GLOBAL_SLASH, PREFIX, 0, 0, PRIMARY), 
Tee RUE | BRRNB-EMIRTES\'sBAERSURSNS BE” ge 
; 174@ p 1869 OPERATORENTRY('(*,° SUBSCRIPT, POSTFIX, 0. 0. PRIMARY), 
: 1744 P 18774 1 OPERATOR_ENTRY('(', OPENPAREN, PREFIX, 200, 5, LEXICAL), 
S 1hee P1878 OPERATORTENTRY('#*, —ONARY PLUS, © PREFIX6' 200, “7OS,cenrone 
> 1747 P1874 1 OPERATOR-ENTRY('="¢ UNARY-MINUS, PREFIX, 3 > 720), 
3 1748 P 1875 «(1 OPERATOR_ENTRY(‘##', POWER _OF, INF IX, 92, 90), 
3 1749 Pp 1976 1 OPERATOR_ENTRY('*', POWER OF, INF IX, 92, 90), 
; 1750 P 187 1 OPERATOR_ENTRY(‘®', MULTIPLY, INF IX, 4 ‘ Bee 
3 1751 p 1378 1 OPERATOR_ENTRY('/', DIVIDE, INFIX, 0, 0), 
: 1736 P 1879 1 OPERATOR_ENTRY(‘'+', DD INFIX, 60, 60), 
> 175 P1880 1 OPERATOR-ENTRY('=", SUBTRACT, INF IX, $0. $0), 
> 1754 P 1881 1 OPERATOR-ENTRY('<* LSS_THAN, INF IX, ~ 
; 1755 P 1336 1 OPERATOR_ENTRY(‘'<=", LSS_EQUAL, INF IX, 50. 50), 
: 1756 P 188 1 OPERATOR_ENTRY(‘'=<", LSS_EQUAL, INF IX, 50, 50), 
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OPERATOR_ENTRY('>* GTR_THAN, INF IX, 0. 50), 
OPERATOR-ENTRY('>= GTR-EQUAL, INF IX, ‘ ; aa 
OPERATOR-ENTRY('=>' GTR-EQUAL, INF IX, ot eee 
OPERATOR-ENTRY(*=" EQUAL INF IX, , 50), 
OPERATOR-ENTRY(*<>', = NOT “EOUAL, INFIX, 50, 50) 

OPERATOR-ENTRY('><*. § NOTTEQUAL, INFIX, 50. 50)5; 


! Define the BASIC Terminator Lexical Token Table for subscript expressions. 
: In BASIC @ subscript expression can be terminated by he (end of sub- 

' scripts), ». (more subscripts to follow), or by "’:"’ (string subscript 
upper bound to follow). 


TERMINATOR TABLE (BA 1C_SUBSCR_TERM_T 
TERMINATOR_ENTRY(')', “TERM-C (Pbée, BALANCED_PARENS), 
TERMINATOR” “ENTRY(':', TERM 0 LON, MUST_BE_SINGLE), 
TERMINATOR-ENTRY(','. TERM-COMMAS); 


Define the BASIC Predefined Identifier Table. 
PRID_TABLE (BASIC_PRID_TABLE); 


Define the BASIC Built-in Function Table. 
BUILT_IN_FUNCTION_TABLE (BASIC_FUNCTION_TABLE); 


Define the BASIC Number Scanner State Table. This table defines the states 
Y a Finite-State Machine which picks up all valid numeric constants in the 
anguage. 


' 
i 
i 
i 
! The BASIC number table is the same as the UNKNOWN number table at present. 
BIND 

BASIC_NUMBER_TABLE = UNKNOWN_NUMBER_TABLE; 


! Define the Primary Parser State Table for language BASIC Each Transition 
i Entry in the state table has this format: 


PRIMARY_TRANSITION(operator-code, action, next-state) 


' 

i 

i 

i where the first parameter is the operator code which causes the transition 
i to be t taken, the second parameter is the action routine CASE index for the 
i transition, and the third parameter is the next state in the Finite-State 
Machine. 
Pp 


RIMARY_STATE_TABLE (BASIC _PRIMARY_TABLE, 


‘oonay+' ee eaneett STATE 


IMARY TRANSITTON (GLOBAL SL SLASH START_GBL, GET_GLOBAL), 


PRIMARY ANSITION(BA START SLASH, GOT GACKSLASH), 
PRIMARY~TRANSITION(IN vOCN mt stash "THVO OCNUM, GOT_BACKSLASH), 
PRIMARY-TRANSITION(DOT, STA Ui DOT, “GOT _DOT), 

PRIMARY TRANSITION(SUBSCRIPT, START_SUBSCR, GOT_SUBSCRIPT), 


DEBUG. SRC JDBGPARSER .B32; 
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; 1816 4 196] PRIMARY_TRANSITION(PRIMARY_TERM, START_TERM, END_STATE)), 
3: 1 18 Pp 1308 1 PRIMARY_STATE(GET_GLOBAL 

; ! ! 4 Hg: ] PRIMARY “TRANSITION (PRIMARY _TERM, GBL_TERM, END_STATE)), 

3 1 18 ° 1946 1 PRIMARY STATE (GOT BACKSLASH 

> 1820 P1947 1 PRIMAR ANSTTION(BACKSLASH, SLASH SLASH GOT_BACKSLASH), 
: 1821 P1948 1 PRIMARY TRA NS ITI ONC INvOCWU SLASH_INVOCNUM, GOT_BACKSLASH), 
; 18 ¢ P1949 1 PRIMARY_TRANSITION(DOT DOT,” : DOT), 

; 18 P1950 1 PRIMARY TRANSIT ION( DOT SLASH “SLASH_SUBSCR, GOT_SUBSCRIPT), 
: 18 é 4 193] PRIMARY_TRANSITION(PRIMARY_TERM, SLASH_TERM, END_STATE)), 

3; 18 $ Pp 1988 1 PRIMARY STATE(GOT_DOT, 

3 182 P1954 1 MARY_TRANSITION(DOT, DOT_DOT, GOT_DOT) 

; 8 P1955 1 PRIMARY ~ TRANS ITION( SUB née RIPT, DOT_SUBSCR, GOT _SUBSCRIP i, 
; 3 , 4 1996 ! PRIMARY_TRANSITION(PRIMARY_TERM, BOT_TERM, END_STATE)) 

: 1831 > 1958 1 PRIMARY_STATE(GOT_SUBSCRIPT 

3 1832 P1959 1 PRIMARY_TRANSITION(DOT SuBscR DOT, GOT goon) 

> 183 P1960 1 PRIMARY-TRANSITION(SU ee: SuBSCR_SUBSCR 4 or SUBSCRIPT), 
; S33 4 + 2 : PRIMARY ~ TRANS ITION(PRIMARY PTERM: SUBSCR_TERM, END_STATE)), 
; 1836 1968 1 PRIMARY_STATE(END_STATE)); 

3 1837 1964 1 

3 1838 1965 1 

; + +44 1De8 : ; Define the table of pointers to the parse tables for BASIC. 

3 1841 P 1968 1 LANGUAGE ~TABLES (LANGUAGE = ASIC, 

; 1848 P 1969 1 CHARTBL = Basic RTBL, 

3 184 P1970 1 IDENT O PTBE 2 BxSiC IDENT_OPTBL, 

3: 1844 P1971 1 OPCHAR_OPTBL = BASIC_OPCHAR_OPTBL, 

3 1845 Pp 197¢ 1 NUMB ABLE = BASIC”NUMBER~ TABLE, 

3 1846 P1973 1 PRIRAR ABLE = BASIC _PRIMARY_TABLE, 

3: 18647 P1974 1 SUBSCR_TERMS = BASIC =SUBSCR_ TERM_ TBL, 

3 1848 P1975 1 PRIDTBC = BASIC_PRID-TABL 

3 1849 P1976 1 BIF_TABLE = BASTC_FUNCTION. TABLE, 

; 1850 1977 1 ACOMPLETE QUAL =" TRUE); 


| 
| 
| 
| 
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3 1 38 1378 1 BLISS PARSE TABLES 
3 7 1979 1! 
> 1854 1980 1! 
; 1855 1981 1 / 
3 1 28 1386 Zz This section includes all the Lexical Scanner and Parser tables needed 
; 185 19 : 2 to scan and parse the BLISS Language. 

1858 1984 1! 
; 1859 1985 1: 
; 1860 1986 1 i 
3; 1861 1987 1 ! Define the BLISS Character Table. What is Listed here is actually a List of 
3 1906 1356 : } exceptions to the Character Table for Language UNKNOWN. 
: 1864 P 1990 1 CHAR_EXCEPTION TABLE (BLISS CHARTBL 
> 1865 P1991 i CHAR_ERTRY('S', OTRER, IDENT_ANYWHERE), 
3; 1866 P 1336 1 CHAR_ENTRY('<', OTHER, OPCHAR, ADDRESS_OP), 
3; 1867 P 199 1 CHAR_ENTRY('>', OTHER, TERMINATOR), 
3; 1868 P 1994 1 pre iL LLe Be OTHER, OPCHAR) 
; 1869 P1995 1 CHAR-ENTRY('J', OTHER, TERMINATOR), 
; 1870 P 1996 1 CHAR_ENTRY('*", OTHER, OPCHAR, SPECIAL_SYMBOL), 
3 i ta pad : CHAR_ENTRY('_*, OTHER, IDENT_ANYWHERE)S; 
: 1878 +4 : } Define the BLISS Operator Tabie for operators wicse names are identifiers. 
> 1875 P 2001 1 OPERATOR_TABLE(BLISS_IDENT_OPTBL, 
; 1876 P $008 1 OPERATOR_ENTRY('MOD', REMAINDER, INFIX, Te, 70). 
3; 1877 P 200 1 OPERATOR_ENTRY(*EQL". EQUAL, INF IX, 50, 50), 
; 1878 P 2006 1 OPERATOR_ENTRY('EQLU E ° INFIX, , =» 
3; 1879 P 2005 1 OPERATOR_ENTRY(‘EQLA’, €E ° INF IX, 50, 50), 
; 1880 P 2006 1 OPERATOR_ENTRY('N Q'. OT_EQUAL, INF IX, 50, 50), 
; 1881 P 2007 1 OPERATOR_ENTRY( 'NE » NOT_EQUAL, INF IX, 50, 50), 
3; 1882 P 2008 1 OPERATOR ENTRY('NEQA’, NOT_EQUAL, INF IX, 50, 50), 
: 1883 P 2009 1 OPERATOP ENTRY(' 7; R N, INF IX, 50, 50), 
3 1884 P 2010 1 OPERATOR_ENTRY('GTRU', GTRITHAN_U, INFIX, 50, 50), 
; 1885 P 2011 1 OPERATOR_ENTRY('GTRA’®, GTR_THAN_U, INF IX, 50, 50), 
3 1886 P 2012 1 OPERATOR-ENTRY('GEQ',  GTR-EQUAC, INFIX, 50, 50), 
3; 1887 P 201 1 OPERATOR_ENTRY('GEQU’, GTR_EQUAL_U, INF IX, 50, 50), 
3; 1888 P 2014 1 OPERATOR_ENTRY('GEQA’®, GTR_EQUAL_U, INF IX, Oe Dele 
3; 1889 P 2015 1 OPERATOR_ENTRY('LSS" , LSS_THAN, INFIX, 50, 50). 
; 1890 P 2016 1 OPERATOR_ENTRY('LSSU’, LSS_THAN_U, INF IX, . Me iF 
3; 1891 P 2017 1 OPERATOR_ENTRY(°LSSA’, LSS_THAN_U, INF IX, 7, 30). 
3 1336 P 2018 1 OPERATOR_ENTRY(*LEQ’. LS*"eEQual, INFIX, 50, 50), 
3; 189 P 2019 1 OPERATOR_ENTRY(*LEQU’, LS L_EQUAL_U, INFIX, 50, 50), 
: 1894 P 2020 1 OPERATOR-ENTRY("LEQA', LSS"EQUAL-U,  INFIX, 50, 50), 
3; 1895 P os 1 OPERATOR_ENTRY('NOT’, BIT_NOT, PREFIX, 200. $83. 
: 1896 P 20 ¢ 1 OPERATOR_ENTRY( ‘AND’, BIT_AND, INF IX, 0, 30), 
3; 1897 P 20 1 OPERATOR_ENTRY(°OR’ . BIT_OR, INF IX, 20, 20), 
3; 1898 P $ 4 1 OPERATOR_ENTRY(*EQV', BIT_EQv, INF IX, 10, 10) 
> 1899 025 1 OPERATOR-ENTRY('XOR’,  BIT~XOR, INFIX, 10, 10)5; 
1908 057 
: 1902 $58 1 ! Define the BLISS Operator Table for operators whose names are composed of 
; 1903 Oe 1 ! operator characters such as ‘'t’’, “="", or ‘'#'', This table includes operators 
$ Hb O31 : } which are part of DEBUG Primary Symbols (such as ‘\''). 
: 1906 P 2032 1 OPERATOR TABLE(BLISS_OPCHAR_OPTBL, 
; 1907 P $3 1 OPERATOR_ENTRY('\', GLOBAL. SLASH, PREFIX, 0, 0, PRIMARY), 
; 1908 P 2034 1 OPERATOR_ENTRY('\', BACKSLASH, INFIX, 0, 0, PRIMARY), 
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14-Sep-1984 1 DEBUG. SRC JDBGPARSER.B32;1 
3 1308 : 8 5 } OPERATOR_ENTRY('C', SUBSCRIPT, POSTFIX,0O, 0, PRIMARY), 
; 1911 P 20 : 1 OPERATOR_ENTRY('(', OPENPAREN, PREFIX, 200, 5, LEXICAL), 
3 1316 4 8 : OPERATOR_ENTRY(')', CLOSEPAREN, POSTFIX, 6, 200, LEXICAL), 
; 1914 P 2040 1 OPERATOR_ENTRY(*<', BIT LECT, POSTFIX,110, 200, LEXICAL), 
3 1915 P 2041 1 OPERATOR_ENTRY('.', INDIRECT, PREFIX, 200, 1005, 
3; 1916 P 2042 1 OPERATOR_ENTRY('+', UNARY_PLUS PREFIX, 200, 90), 
: 1917 P 2043 1 OPERATOR-ENTRY(‘=", UNARY“MINUS, PREFIX, 200, 90). 
; 1918 P 2044 1 OPERATOR_ENTRY('*', LEFT_SHIFT, INF IX, 0. oO} 
; 1919 P 2045 1 OPERATOR_ENTRY('®#', MULTIPLY, INF IX, 0, 70), 
; 1920 P 2046 1 OPERATOR_ENTRY('/', DIVIDE, INFIX, 70, 70), 
; 1921 P 2047 1 OPERATOR_ENTRY('+', ADD INFIX, 60, 60) 
: 19 : 048 1 OPERATOR-ENTRY( "=", SUBTRACT, INFIX, 60, 60)5; 
3 19 049 #1 
3 1924 050 1 i 
; +44 2084 : Define the BLISS Terminator Lexical Token Table for subscript expressions. 
3 1959 P $38 1 TERMINATOR TABLE (BLISS SUBSCR_TERM_TBL, 
: 1928 P 2054 1 TERMINATOR_ENTRY('J', TERM_CLOSE), 
3 1363 P 2055 1 TERMINATOR_ENTRY(':", TERM_COLON, MUST_BE_SINGLE), 
; 1950 2056 1 TERMINATOR_ENTRY(',', TERM_COMMA)); 
3; 1931 2057 1 
; 1936 2058 1 ; : on 
3 193 2059 1 ! Define the BLISS Predefined identifier Table. 
3: 1934 2060 1! 
3; 1935 sees 1 PRID_TABLE(BLISS_PRID_TABLE); 
; 1936 3 $e 1 
3 1937 063 1 ; : 
3; 1938 2064 1 ! Define the BLISS Built-in Function Table. 
3; 1939 2065 1! 
3: 1940 $008 1 BUILT_IN_FUNCTION_TABLE (BLISS_FUNCTION_TABLE); 
3 1961 067 1 
3 Ha Spee 1 i : 
3 194 2069 1 ! Define the BLISS Number Scanner State Table. This table defines the states 
3 19446 2070 1! of a Finite-State Machine which picks up all valid numeric constants in the 
: Mb ot $003 : Language. 
3 Hb ot 4 2078 : The PL.ISS number table is the same as the UNKNOWN number table at present. 
3 1949 Ae: 1 BIND 
3; 1950 2076 1 BLISS_NUMBER_TABLE = UNKNOWN_NUMBER_TABLE; 
3; 1951 2077 1 
3 1326 $078 1 ee 
3; 195 079 1 ! Define the Primary Parser State Table for language BLISS. Each transition 
: 1338 ogy : Entry in the state table has this format: 
3 1328 oes ! PRIMARY_TRANSITION(opefator-code, action, next-state) 
: 1958 084 1 ! where the first parameter is the operator code which causes the transition 
; 1959 085 1 ! to be taken, the second parameter is the action routine CASE index for the 
3; 1960 O86 1 ! transition, and the third parameter is the next state in the Finite-State 
; 1961 087 1 ! Machine. 
3 1368 +43 1! 
3 196 P 2089 1 PRIMARY_STATE_TABLE(BLISS_PRIMARY_TABLE, 
3: 1964 P 2090 1 
3 1965 P 2091 1 PRIMARY_STATE(START_STATE, 
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PRIMARY _TRANSITION(GLOBAL_SLASH, START GBL, GET_GL 
PRIMARY-TRANSITION(BACKSLASH, START SLASH, GOT BAC 
PRIMARY TRANSITION(INVOCNUM, SLASH TNVOCNUM, GOT_BAC 
PRIMARY-TRANSITION(SUBSCRIP?, START SUBSCR BLI, GO 
PRIMARY-TRANSITION(PRIMARY TERM, START_TERM, END_S 
PRIMARY_STATE(GET_GLOBAL 
PRIMARY_TRANSTTION(PRIMARY_TERM, GBL_TERM, END_STATE)), 
PRIMARY. STATE (GOT_BACKSLASH 
PRIMARY_TRANSITION(BACKSLASH, SLASH SLASH, GOT BACKSLASH) 
PRIMARY _TRANSITION(INVOCNUM, SLASH _TNVOCNUM, GOT_BACKSLASH) 
PRIMARY-TRANSITION(SUBSCRIPT, SLASA_SUBSCR BLI, GOT SUBSCRIPT), 
PRIMARY_TRANSITION(PRIMARY_TERM, SLASH_TERM, END_STATE)), 
PRIMARY STATE (GOT _SUSSCRIPT, 
PRIMARY _TRANSITIJON(PRIMARY_TERM, SUBSCR_TERM, END_STATE)), 
PRIMARY_STATE(END_STATE)); 


Define the table of pointers to the parse tables for BLISS. 
LANGUAGE_TABLES(LANGUAGE = BLISS 
CHARTBL 


= BLIS 
IDENT_OPTBL = 
OPCHAR_OPTBL 
UMB 


IDENT_OPTBL, 
S_OPCHAR_OPTBL, 
S"-NUMBER- TABLE, 
SS_PRIMARY_TABLE, 
S_SUBSCR_TERM_TBL, 
D-TABLE, 
UNCTION_TABLE); 


ac) 
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04- 
; 1999 } : } } C PARSE TABLES 

mp HR 

3 Oe 1 7-3 

; 200 128 1! This section includes all the Lexical Scanner and Parser tables needed 
3; 2006 129 1! to scan and parse the C Language. 

Be RT 

3 $09 1 ; 1! 

; 2008 1 1 ! Define the C Character Table. What is Listed here is actually a list of 
3 B08 1 ¢ : exceptions to the Character Table for Language UNKNOWN, 

3; 2011 P 2136 1 CHAR EXCEPTION TALES =CHARTOL. 

3 Ole P 2137 1 CHAR_ENTRY('S$'> OTHER, IDENT_ANYWHERE), 

3; 201 P 2138 1 CHAR_ENT RY! re OTHER, IDENT ANYWHERE) 

3 2014 P 2139 1 CHAR_ENTRY('T', OTHER, OPCHAR, OPCHAR iNFIX), 

; 2015 P 2140 1 CHAR_ENTRY('®', OTHER, OPCHAR, ADDRESS_OP), 

3; 2016 P $103 1 CHAR_ENTRY('Z*, OTHER, OPCHAR), 

; 2017 P 106 1 CHAR_ENTRY('<*, OTHER, OPCHAR, “OPCHAR_ INFIX, ADDRESS_OP), 

; 2018 P 214 1 CHAR_ENTRY('=", OTHER, OPCHAR, OPCHAR_ INFIX, TERMINATOR) . 

3 sth P 2144 1 CHAR -ENTRY(*>', OTHER, OPCHAR OPCHAR_ INFIX, TERMINATOR), 

3; 2020 P 2145 1 CHAR “ENTRY(' at . OTHER, OPCHAR 

3 2021 P 2146 1 CHAR-ENTRY('J', OTHER, TERMINATOR 

: soe P site 1 CHAR “ENTRY('°*", OTHER, OPCHAR, OPE CIAL SYMBOL), 

3; 202 P 2148 1 CHAR_ENTRY(';', aes = CHAR, OPCHAR_INFIX), 

3 2024 2149 1 CHARTENTRY('~", OTHER CHARS); 

3; 2025 2150 1 

3; 2026 2151 1 : : 

3 $056 $126 : Define the C Operator Table for operators whose names are identifiers. 

3 $063 P $18z 1 OPERATOR TABLE (C_IDENT OPTBL 

; 20350 2155 1 OPERATOR “ENTRYT' SIZEOF', SIZEOF, PREFIX, 200, 140)); 

3; 2031 2156 1 

5 $036 2157 1 

3; 203 2158 1 ! Define the C Operator Table for, hearty whose names are composed of 

3; 2034 2159 1! eperater characters such as or This table includes operators 
; 2036 $169 ! which are part of DEBUG ppinene” Symbols Pt as "\""). 

3; 2037 P $196 1 OPERATOR Ls 9 SE pane OPTBL, 

; 2038 P 2163 1 OPERATOR-ENTRY(*\', GLOBAL_SLASH, PREFIX, 0, 0, PRIMARY), 

; 2039 P 2164 1 OPERATOR_ENTRY('\', BACKSLASH, INF IX 0, 0, PRIMARY), 

3; 2040 P sige 1 OPERATOR ~ENTRVE Ce SUBSCRIPT, POSTFIX,0. 0, PRIMARY), 

$ soot “ 168 : OPERATOR JENTRY(*. DOT, INFIX, 0, 0, PRIMARY), 

; $28 p $185 1 OPERATOR_ENTRY('(', OPENPAREN, PREFIX, 200, 5, LEXICAL) 
3 2044 P 19? 1 OPERATOR_ENTRY(' )*? CLOSEPAREN, POSTFIX, 6, 200, LEXICAL) 
> 2065 P2170 1 OPERATOR-ENTRY('!", NOT, PREFIX, 200, 1405, 

2 oe P 2171 1 OPERATOR_EN . -s BIT_NOT PREFIX, 200, 140), 

> 204 P 1% 1 OPERATOR-ENTRY('*", INDTRECT, PREFIX, 200, 140), 

3; 2048 P 217 1 OPERATOR_ENTRY(‘®', MULTIPLY, INFIX, 130, 130} 

: 2049 P 2174 1 OPERATOR_ENTRY('/*, DIVIDE INFIX, 130, 1 3. 

: 2050 P2175 1 OPERATOR~ENTRY('S' REMAINOER INFIX, 130; 130); 

; 2051 P 2176 1 RATOR_ENTRY(‘<<", LEFT SHIFT INFIX, 110, 1103 

; 05¢ P 2177 1 OPERATOR-ENTRY('>>' RIGHT SHIFT,  INFIX, 110, 110); 

3; 205 P 2178 1 OPERATOR_E TRY(*<* LSS_TRAN, INFIX, 100, 100), 

3 2054 P 2179 1 OPERATOR_ENTRY(°<=", LSS_EQUAL, INFIX, 1 6. 100), 

: 2055 P 2180 1 OPERATOR™ WENTRY(*>*, GTR_THAN, INFIX, 100, 100), 


1b-Sep-1 


Define the C Terminator Lexical Token Table for subscript expressions 


TERMINATOR TABLE (C_SUBSCR TERM TBL, 
TERMINATOR-ENTRY(*)', TERM_CLOSE), 
TERMINATOR-ENTRY(':*, TERM~COLON, MUST_BE_SINGLE), 


wvwvv 


Bliss-32 v4.0-74 
SRC IJDBGPARSER.B32;1 


so # s ER 984 96:19:] AX-11 

Vv 14-Sep-1984 12:17:3 DEBUG. 
: $039 p S18) | OPERATOR-ENTRYC ==", EQUKECSY’ =F’ "90% "903: 

: 2058 ° 188 1 OPERATOR-ENTRY('!=', NOT_EQUAL, INFIX, 3 > 90), 

3; 2059 P 21 1 OPERATOR_ENTRY(°*', BIT_xOR, INFIX, 6° 70), 

; 2060 Pp 139 1 OPERATOR_ENTRY(*;? BIT"OR INFIX, 60, 60) 

; 061 186 OPERATOR-ENTRY('!:', § SHORT_OR, INFIX, 40, 40)5; 

: 5068 188 1 

; bee + 4 : } Define Lexical Token Entries which require special-case scanning. 

3 206 191 1 BIND 

3 206 19¢ 1 C_ADDR_OF _TOKEN = 

; +43 bg, : ; © oy ENTRYC°S®, ADDRESS_OF, PREFIX, 200, 140), 

; sont 133 } cme eS BIT_AND, INFIX, 80, 80), 

; 207 197 «ADO ERATORENTRY( "GE", SHORT_AND, INFIX, 50, 50), 

3 2074 3199 1 “OPERATOR ENTRY('+", ADD, INFIX, 120, 120), 

3 2075 200 1 C_MINUS_TOKER = 

; sos 220: : : eer Rn TOR ENTRY ES =", UNARY_MINUS, PREFIX, 200, 140), 

; sore 2208 , gE ENTRY(*=", SUBTRACT, INFIX, 120, 120), 

; 080 g205 1 ~OPERATOR_ENTRY("=>", — PLI_DEREF, INFIX, 0, 0, PRIMARY), 
; $08 2207 1 : The indirect operator will also be allowed as an address expression 
; 208 2208 1 : operator in C (synonymous with *’."’ and ‘’a"'). That's why it appears 
; 2084 $508 1 : here as a special case, in addition to its appearance in the normal 
; 2085 210 1 ! operator tables. The precedence of °‘'40'' here is relative to other 
: one $51] : : address expression operators. 

> 20 ie C_INDIRECT TOKEN = 

; $05 $sie : OPERATOR_ENTRY('®', INDIRECT, PREFIX, 200, 40); 

: 2091 2216 1 

; Os 2217 1! Increment and decrement were commented out so as not to allow operators with 
: 3k ssié : } side effects. If we decide to allow them, the comments can be removed. 
; 2095 3220 1 BIND 

; 20% 221 1! C_PRE_INCR_TOKEN = 

; iad $586 : : Ro abe Bali aaa PRE_INCR, PREFIX, 200, 140), 

: 2099 $s¢ : } c pee RAIOn ENTE’ ee", POST_INCR, POSTFIX,140, 200), 

; 326 1 : « PORERATORENTRY(* ==" PRE_DECR, PREFIX, 200, 140), 

; 328 1 i ~ OPERATOR-ENTRY('=-", § POST_DECR, POSTFIX,14C, 200); 

; 3 | 

3 = 1 

; § 1 

: 33 1 

: 4 1 

; 234 : 

; 3 | 


—_— st es = 0 
VASSSLEARaW—S 


TERMINATOR-ENTRY(',*, TERM~COMMAS); 
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Define the C Predefined Identifier Table. 
PRID_TABLE(C_PRID_TABLE); 


Define the C Built-in Function Table. 
BUILT_IN_FUNCTION_TABLE(C_FUNCTION_ TABLE); 
: Define the C Number Scanner State Table. This table defines the states 
! of a Finite-State Machine which picks up all valid numeric constants in the 
Language. 
The C number table is the same as the UNKNOWN number table. 
BIND 
C_NUMBER_TABLE = UNKNOWN_NUMBER_TABLE; 

Define the Primary Parser State Table for language C. Each transition 
Entry in the state table has this format: 

PRIMARY _TRANSITION(operator-code, action, next-state) 


where the first parameter is the operator code which causes the transition 
to be taken, the second parameter is the action routine CASE index for the 


5 ee 


transition, and the third parameter is the next state in the Finite-State 
Machine. 
RIMARY_STATE_TABLE(C_PRIMARY_TABLE, 

PRIMARY STATE(START STATE, 
“RIMARY_TRANSITION(GLOBAL_SLASH, START _GBL, GET GLOBAL), 
“RIMARY-TRANSITION(BACKSLASH, START SLASH, GOT BACKSLASH) , 
PRIMARY_TRANSITION(CINVOCNUM, SLASH _TNVOCNUM, GOT_BACKSLASH), 
PRIMARY_TRANSITION(DOT e GOT ° 
PRIMARY-TRANSITION(SUBSCRIPT, START_SUBSCR, GOT SUBSCRIPT), 
PRIMARY_TRANSITION(PLI START_DEREF, GOT BOT), 
PRIMARY-TRANSITION(PRIMARY_TERM, START_TERM, ERD_STATE)), 

PRIMARY STATE (GET_GLOBAL 
PRIMARY_TRANSTTION(PRIMARY_TERM, GBL_TERM, END_STATE)), 

PRIMARY_STATE(GOT_BACKSLASH 
PRIMARY_TRANSTTION(BACKSLASH, SLASH SLASH, GOT_BACKSLASH), 
PRIMARY TRANSITIONCINVOCNUM, SLASH TNVOCNUM, GOT_BACKSLASH), 
PRIMARY_TRANSITION(DOT, SLASH_DOT, GOT DOT), 
PRIMARY TRANSITION(SUBSCRIPT, ~SLASH_SUBSCR, GOT SUBSCRIPT), 
PRIMARY_TRANSITION(PLI DEREF, SLASH DEREF, GOT BOT), 
PRIMARY-TRANSITION(PRIMARY_TERM, SLASH_TERM, END_STATE)), 

PRIMARY_STATE(GOT_DOT, 
PRIMARY_TRANSTTION(DOT, DOT_DOT, GOT_DOT), 
PRIMARY-TRANSITION(SUBSCRIPT, DOT_SUBSCR, GOT_SUBSCRIPT), 


} 
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This section includes all the Lexical Scanner and Parser tables needed 
to scan and parse the COBOL Language. 


Define the COBOL Character Table. What is Listed here is actually a List of 
exceptions to the Character Table for Language UNKNOWN. 


CHAR EER ORAT Ay ferent CHARTB 


Peacscasacasmessaserace 


L 
HAR_ERTRY('=", MINUS, OPCHAR, ADDRESS OP, IDENT MIDDLE) 

CHAR-ENTRY('O', DIGIT, DIGIT, IDENT ANYWHERE, NUMBER START), | 

CHAR-ENTRY('1', DIGIT, DIGIT, IDENT-ANYWHERE, NUMBER-START), | 

CHARTENTRY( °° DIGIT, DIGIT, IDENT-ANYWHERE, NUMBER-START), 

CHAR-ENTRY('3', DIGIT, DIGIT, IDENT-ANYWHERE, NUMBER-START), | 

CHARLENTRY('4', DIGIT, DIGIT, IDENT_ANYWHERE, NUMBER START), | 

CHARTENTRY('5', DIGIT, DIGIT, IDENTCANYWHERE, NUMBER START), 

CHAR-ENTRY('6', DIGIT, DIGIT, IDENT-ANYWHERE, NUMBER-START), | 

CHAR-ENTRY('7", DIGIT, DIGIT, IDENT-ANYWHERE, NUMBER-START), 

CHAR-ENTRY('8', DIGIT, DIGIT, IDENT-ANYWHERE, NUMBER” START) 

CHARTENTRY('9'. DIGIT. DIGIT, IDENT-ANYWHERE, NUMBER-START). | 

CHAR-ENTRY('<', OTHER, OPCHAR, OPCHAR_INFIX, ADDRESS-OP, TERMINATOR), | 

CHARTENTRY(*>), OTHER, OPCHAR. OPCHARTINEIX, TERMINA ATOR), | 

CHARTENTRY('=". OTHER, OPCHAR. OPCHARTINFIX, TERMINATOR) © | 

CHARTENTRY(® 91, OTHER, IDENT ANYWHERE 

CHARTENTRY('S", OTHER, IDENT ~ANYWHERED 5 


Define the COBOL Operator Table for operators whose names are identifiers. 
OPERATOR TABLE (COBOL IDENT OPTBL, | 


OPERATOR_ENTRY('OF*, DOT, INFIX, Q, 0, PRIMARY), 
OPERATOR-ENTRY('IN' OT, INFIX, 0, 0, PRIMARY), 
OPERATOR-ENTRY('NOT', NOT, PREFIX, 200, 25), 
OPERATOR_ENTRY('AND', AND, INFIX, 20, 20), 
OPERATOR_ENTRY('OR' . R, INFIX, 10, 10), 
OPERATOR~ENTRY ("NOT INF IX_NOT, INFIX, 30, 30, LEXICAL)) 
BIND 
COBOL _NOT_EQL_TOKEN = 
PERATOR_ENTRY("NOT =", NOT_EQUAL, INFIX, 30, 30), 
COBOL _NOT CTR TOKEN = 
PERATOR_ENTRY('NOT >*, LSS_EQUAL, INFIX, 30, 30), 
COBOL _NOT_LSS_TOKEN = 
OPERATOR ENTRY NOT <', GTR_EQUAL, INFIX, 30, 30); 


! Define the COBOL Operator Table, for, operators whose names are composed of 
' operator characters such a or This gente includes operators 
which are part of DEBUG =» il * Symbols (suck as ‘\"') 


OPERATOR Tae § (CORO, OPCHAR_OPTBL, 


OPERATOR_ENTRY('\',” GLOBAL SLASH, PREFIX, 0, Q, PRIMARY), 
OPERATOR-ENTRY('\", BACKSLASH, INF IX * PRIMARY). 
OPERATOR-ENTRY(*(", SUBSCRIPT. POSTFIx.0. 0. PRIMARY), 


9 0 A ER A 


| D1 
DBGPARSER 16-Sep-1984 02:10:13 AX-11 Bliss-32 V4.0-74 Page 44 
04-000 12788p- 1882 93:19:33 HOEGuG. Seclosapansen 049-1 610), 
3 226 P $ 1 OPERATOR_ENTRY('>', PREFIX_GTR, PREFIX, 00, 0, LEXICAL), | | ; 
3 226 P 1 OPERATOR-ENTRY('<' PREFIX“LSS, PREFIX, 200, 30, LEXICAL), ; 
3 2264 P 2388 1 OPERATOR-E te? PREF IX“EQL, PREFIX, 00, > LEXICAL), ; 
3 2265 P 2389 1 OPERATOR-ENTRY('(' OPENPAREN, PREFIX, 200, 5, LEXICAL), ; 
$508 p 53q, | | OPERATORTENTRY('#e!,  POUER OFS” INFIXE” 700 “90S, cot 
$2268 P 2392 1 OPERATOR-ENTRY('*', © MULTIPLY, INFIX, 60, 60), : 
> 2269 P 2393 1 OPERATOR-ENTRY('/', DIVIDE INFIX, 60, 60), ; 
3 2270 P 2394 1 OPERATOR-ENTRY('+', UNARY_PLUS PREFIX, 300, 50), ; 
: $50) site OERATOR-ENTAT ages YMARYININUS, «= PRETIN. COR. Tae | 
: sy P 2397 1 OPERATOR-ENTRY('-'. SUBTRACT, INFIX, 40, 40), | : 
> 2078 P 9 1 OPERATOR-ENTRY('>? GTR_THAN, INFIX, 30, 30), F 
> 2075 P 2399 1 OPERATOR-ENTRY('<", LSS~THAN, INFIX, 30, 30) ; 
: 2276 g400 1 OPERATOR-ENTRY(*=", EQUAL, INFIX, 30, 3095; | ; 
: 2578 3409 1 | : 
: $500 $ib7 : : Define the COBOL Terminator Lexical Token Table for subscript expressions. | ; 
: 2281 P 2405 1 TERMINATOR TABLE (COBOL_SUBSCR_TERM_TBL | F 
; 2282 P 2406 1 TERMINATOR_ENTRY(')°, "TERM-CLOSE), : 
: 2283 P 2407 1 TERMINATOR-ENTRY(':', TERM-COLON, MUST_BE_SINGLE), ; 
; 2286 3408 TERMINATOR-ENTRY(',", TERM~COMMAS); | ; 
> 2286 2410 1 | ; 
: est4 soi) : Define the COBOL Predefined Identifier Table. : 
: 2289 sei8 1 PRID_TABLE (COBOL_PRID_TABLE); F 
: 2290 2414 1 3 
> 2291 2415 1 ; 
: $506 sei$ ; Define the COBOL Built-in Function Table. ‘ 
i 2294 2418 1 BUILT_IN_FUNCTION, TABLE (COBOL FUNCTION. TABLE) ; | : 
: 2296 2420 1 ; 
; 2297 2421 1 ! Define the COBOL Number Scanner State Table. This table defines the states : 
; F344 $75$ 1! of a Finite-State Machine which picks up all valid numeric constants in the F 
; $538 stSi ; language. Each Transition Entry is of the form: : 
; $30) 3195 : NUMBER_TRANSITION(character-class, action-index, next-state) : 
: $305 $059 1 ' where the character-class and action-index names are automatically prefixed : 
; Sane sess ; , by “NUMSTSK_CLASS_** or "‘NUMSTSK_ACT_"' by the NUMBER_TRANSITION macro. : 
: 306 P 3680 NUMBER_STATE_TABLE (COBOL_NUMBER_TABLE, : 
> 2308 P 438 1 NUMBER_STATE(START_STATE ; 
; 2309 P 2433 1 NUMBER_TRANSITTON(DIGIT, GO_PAST PACK, ACCUM_INT), ; 
> 2310 P 2434 1 NUMBER-TRANSITION(DOT, 60 NOTHING, LEADING DOT) 3 
: 311 P 435 NUMBER-TRANSITION(OTHER, NOT_NUMBER, END_STATE)S, ; 
; 318 p 5437 | NUMBER_STATE (LEADING. DOT ; 
> 2314 P 2438 1 NUMBER_TRANSITION(DIGIT, GO_PAST_PACK_FRAC, ACCUM_FRAC), : 
; 313 p 439 NUMBER~TRANSITION(OTHER, NOT_NUMBER, END_STATE)), : 
: 2317 P 3441 1 NUMBER_STATE(ACCUM_INT ; 
> 2318 P 2442 1 NUMBER_TRANSITION(OIGIT, GO_PAST_PACK, ACCUM_INT), : 
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3 2319 P 2443 1 NUMBER_TRANSITION(DOT, DO_NOTHING, ACCUM FRAC) ; 

3 20 P 2444 1 NUMBER TRANSITION(HEXOIGIT, COB_CKHEX, ACCUM_HEX), | ; 

(t 2321 P 2445 1 NUMBER-TRANSITION(B, COB_CKHEX, ACCUM_HEX), | ; 

ls $¢ P 446 1 NUMBER-TRANSITION(D, COB-CKHEX, ACCUM-HEX), ; 

13 $ P 2447 1 NUMBER" TRANSITION(E, COB_CKHEX, ACCUM HEX) 3 

3 é 34 P 448 NUMBERTRANSITION(OTHER, COB_CKNUM, END_STATE)), ; 
; 2326 P 2450 1 NUMBER_ STATE (ACCUM_HEX ; 
3 2327 P 2451 1 NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_HEX) ; 
; 2328 P 4d¢ 1 NUMBER-TRANSITION(HEXDIGIT, DO_NOTHING, ACCUM_HEX), ; 
> 2309 P 2453 1 NUMBER-TRANSITION(B, DO_NOTHING, ACCUM-HEX), | ; 
> 2330 P 2454 1 NUMBER-TRANSITION(D, DOTNOTHING, ACCUM~HEX), : 
; 2331 P 2455 1 NUMBER-TRANSITION(E, DO-NOTHING, ACCUM-HEX) ; 
; 2332 P 496 NUMBER-TRANSITION(OTHER, COB_CKNUM, END_STATE)), | 3 
3 2334 P 2458 1 NUMBER_ STATE (ACCUM_FRAC ; 
> 2335 P 2459 1 NUMBER_TRANSITION(DIGIT, GO_PAST_PACK_FRAC, ACCUM_FRAC), | : 
> 2336 P 2460 1 NUMBER-TRANSITION(DOT, BACKOP_PTRS, END STATE), | ; 
> 2337 P 2461 1 NUMBER-TRANSITION(E, MARK_E_ERP, GET_EXPONENT). ; 
; 2338 P ge 1 NUMBER-TRANSITION(D, MARK-D-EXP, GET-EXPONENT), | : 
; 2339 P 2463 1 NUMBER-TRANSITION(G, MARK~G-EXP, GET-EXPONENT), : 
3 2340 P 2464 1 NUMBER-TRANSITION(Q, MARK-Q-EXP, GET-EXPONENT), | : 
; 3341 P 3465 NUMBER-TRANSITION(OTHER, GOT_PACK_NUMBER, END_STATE)), | ; 
; 530 P 2467 1 NUMBER_STATE (GET_EXPONENT ; 
3 2344 P 2468 1 NURMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_EXP), ; 
3 2345 P 2469 1 NUMBER-TRANSITION(PLUS, DO_NOTHING, GET EXP SIGN) ; 
> 2346 P 2470 1 NUMBER-TRANSITION(MINUS, DO_NOTHING, GET EXP SIGNS, | ; 
; g307 P 2471 NUMBER-TRANSITION(OTHER, BACKUP_PTRS, END_STATE)), | ; 
Ps | Py 
3 2349 p $038 1 NUMBER_STATE(GET_EXP_ SIGN : 
: 2350 P 2474 1 NUMBER_TRANSITION(DIGIT, DO.NOTHING, ACCUM_EXP) 3 
; 3331 P 3473 NUMBER TRANSITION(OTHER, GOT_NUMBER, END_STATE)S, : 
; $338 P 2477 1 NUMBER_STATE (ACCUM_EXP, ; 
3 2354 P 24678 1 NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_EXP) ; 
; $339 P 3479 NUMBERTTRANSITION(OTHER, GOT_NUMBER, END_STATE)S, | ; 
; $329 P 2481 1 NUMBER_STATE(END_STATE 3 
3 2358 e482 1 NUPMBER_TRANSITION(OTHER, GIVE_ERROR, END_STATE))); | ; 
3 2359 483 1 ; 
3 2360 484 1 ee : 
3; 2361 485 1 ! Define the Primary Parser State Table for language COBOL. Each transition 3 
5 366 $36 ! : Entry in the state table has this format: 3 
3 $08 rt ; PRIMARY_TRANSITION(operator-code, action, next-state) 3 
3 2366 490 1 ! where the first parameter is the operator code which causes the transition | ; 
: 2367 491 1 ! to be taken, the second parameter is the action routine CASE index for the é 
3; 2368 492 1 ! transition, and the third parameter is the next state in the Finite-State 3 
3 $° ret ’ Machine. : 
; 7 e 495 PRIMARY_STATE_TABLE(COBOL_PRIMARY_TABLE, ; 
: 5g P 199 1 PRIMARY _STATE(START_STATE ; 
3 2374 P 2698 1 PRIMARY _TRANSITION(GLOBAL_SLASH, START GBL, GET GLOBAL). 3 
> 2375 P 2499 1 PRIMARY-TRANSITION(BACKSLASH, START_SLASH. GOT_BACKSLASH), : 

| 

i 

| 
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+: 2376 P $00 1 PRIMARY_TRANSITION(INVOCNUM, SLASH_INVOCNUM, GOT_BACKSLASH), | ; 

$2377 P 2501 1 PRIMARY-TRANSITION(DOT, START_DOT COB, GOT_bOT), ; 
: 2378 P 208 1 PRIMARY-TRANSITION(SUBSCRIPT, START SUBSCR-PLI, GOT SUBSCRIPT) ; 
3 3 P 203 PRIMARY-TRANSITION(PRIMARY_TERM, START_TERM, END_STATE)) ; 

3 2381 P 205 1 PRIMARY_STATE(GET_GLOBAL ; 

F 38 P 206 PRIMARY_TRANSITION(PRIMARY_TERM, GBL_TERM, END_STATE)), ; 

(3 2384 P 2508 1 PRIMARY_STATE(GOT_BACKSLASH ; 

> 2385 P 2509 1 PRIMAR V_TRANSTTION (BAC KSLASH, SLASH SLASH. Sor BACKSLASH), ; 
> 2386 P 2510 1 PRIMARY =T ANSITIONCINVOCNUM SLASH ain GOT_BACKSLASH) ; 
> 2387 P2511 1 PRIMARY “TRANSITION (SUB SCRIPT YBSCR PL 1, GOT SUBSCRIPT), ; 
3 $65 “ 216 ' PRIMARY_TRANSITION(PRIMARY PTERM Ast oe TERA, END_ orate E)), 3 
; 3390 P 2514 1 PRIMARY_STATE(GOT_DOT, ; 
> 2391 P 2515 1 PRIMAR Y_TRANSTTION(BACKSLASH, obo SLASH. COB, GOT_BACKSLASH) , ; 
> 239 P 2516 1 PRIMARY “TRANSITION(DOT, DOT COB, GOT_DOT), : 
: 239 P2517 1 PRIMARY ~TRANSITION(SUBECRIPT. Nore Uescr™ COB, GOT SUBSCRIPT) ; 
; 239% P 3318 PRIMARY—TRANSITION(PRIMARY_TERM, Mal _TERA_COB, END_STATE)) ; 
: 2396 P 2520 1 PRIMARY_STATE(GOT_SUBSCRIPT F 
> 2397 P 2521 1 PRIMARY_TRANSITION(SUBSCRIPT, SUBSCR_SUBSCR_PLI Gor 5 SUBSCRIP 12), ; 
; 2398 P $32¢ PRIMARY TRANSITION(PRIMARY_TERM, SUBSCR_T ERR. PLi, STATE)), ; 
3 2400 P $337 1 PRIMARY_STATE(GOT_SUBSCRIPT2, : 
> 2401 P 2525 1 : 
> 2402 P 2526 1 : 
: 2403 2527 1 PRIMARY_STATE(END_STATE)); ; 
> 2404 2328 1 3 
: 2405 369 1 F 
3 444 Soe0 : : Define the table of pointers to the parse tables for COBOL. 3 
: 2408 Pp 53¢ 1 LANGUAGE_TABLES(LANGUAGE = COBOL : 
> 2409 P 2533 1 CHARTBL = COBOL te uAR : 
> 2410 P 2534 1 IDENT_OPTBL = COBOL_IDENT_OPTB : 
> 2611 P 2535 1 OPCHAR_OPTBL = COBOC_OPCHAR_OPTBL, : 
+ 2412 P 2536 1 N LE = COBOL ~NU P : 
> 2613 P 2537 1 PRIMARY_TABLE = COBOL PRIMARY TABLE, : 
> 2614 P 2538 1 SUBSCR_TERMS = COBOL SUBS CR_T BL, : 
> 2415 P 2539 1 RIDTBL = COBOL PRID-TA : 
: 2416 P 2540 1 BIF TABLE = COBOL_ FONCTION’ “TABLE, 3 
> 2617 P 2541 1 MULTIPLE SUBSCR LSE, 3 
: 2418 2542 1 COMPONENTS” IN_ PATHNAME = TRUE); : 

| 

| 

| 

| 

| 

| 

| 

| 


PRIMARY _TRANSITION(PRIMARY TERM, SUBSCR_TERM_PLI, END_STATE)), 
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PARSE TABLES 


DEBUG.SR 
FORTRAN 


This section includes all the Lexical Scanner and Parser tables needed 
to scan and parse FORTRAN expressions. 


: Of exceptions to the Character Table for Language UNKNOWN. (Language UNKNOWN 
! Lists the ‘‘average’’ use of each character in the character set.) 
CHAR_EXCEPTION TABLE (FORTRAN_CHARTBL 

CHAR_ENTRY('.*, DOT NUMBER_START, SPECIAL SYMBOL), 

CHARENTRY('/", OTHER, OPCHAR> OPCHAR_INFIX)); 


! 
t 
! 
' 
1 
! 
' 
t 
' 
Define the FORTRAN Character Table. What is listed here is actually a list 
C 


! Define the FORTRAN Operator Table for operators whose names are identifiers. 
! This table is mg | since FORTRAN has no such operators, but the Lexical 
! Scanner requires that such a table exist anyway. 


] 
q 
' 
1 
OPERATOR_TABLE (FORTRAN_IDENT_OPTBL); 


! Define the FORTRAN Operator Table for operators whose names are composed of 
! operator characters such as ‘'+'', ‘'="", or ‘'s"’, s table includes those 
' operators which are part of DEBUG Primary Symbols (such as ‘\"'). 


‘ 

i 

i 

i 

OPERATOR_ TABLE (FORTRAN _OPCHAR_OPTBL 
OPERATOR_E “\"5 


“ENTRYT'\ GLOBAL_SLASH, PREFIX, 0, 0, PRIMARY), 
OPERATOR-ENTRY('\', BACKSLASH, INF IX 0; 0. PRIMARY). 
OPERATOR-ENTRY('(', SUBSCRIPT, POSTFIX, 0. 0, PRIMARY), 
OPERATOR-ENTRY(".", DOT, INFIX, 0, 0, PRIMARY), 
OPERATOR_-ENTRY('+", D INFIX, 60, 605, 
OPERATOR-ENTRY('=", SUBTRACT, INFIX, 60, 60). 
OPERATOR-ENTRY('+', UNARY_PLUS PREFIX, 200, 70); 
OPERATOR-ENTRY('=', UNARY-MINUS, PREFIX, 200. 70). 
OPERATOR-ENTRY(*#', MULTIPLY, INFIX, 80, 80), 
OPERATOR-ENTRY(*/* DIVIDE INEIX, 80, 80). 
OPERATOR-ENTRY('#* POWER OF, INF IX, 92. 0): 
OPERATOR-ENTRY('//", | CONCATENATE, INFIX, 60. 60). 
OPERATOR-ENTRY('(*, OPENPAREN, PREFIX, 200, _ 5, LEXICAL) 
OPERATOR-ENTRY(")*, CLOSEPAREN, POSTFIX, 6, 200, LEXICAL)S; 

BIND 
FORTRAN_INDIRECT TOKEN = OPERATOR _ENTRY('.', INDIRECT, PREFIX, 200, 40), 
FORTRAN-DOT_TOKEN = OPERATOR_ENTRY('.', DOT. INFIX, 6, 0, PRIMARYS; 


! Define an Operator Table for FORTRAN operators of the form .XX. or .XXX. 
This includes all the FORTRAN comparison and boolean operators. 


OPERATOR TABLE (FORTRAN SPECIAL _OPTBL, 
OPERATOR_ENTRYT'.EQ.°,” EQUAL INFIX, 28. 30}. 
OPERATOR“ENTRY('.NE.*, NOT_EQUAL, INF IX, ; 50). 
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OPERATOR_ENTRY('.GT.', GTR_THAN, INFIX, 0. 
OPERATOR-ENTRY('.GE.', GTRTEQUAL, INF IX, . 
OPERATOR-ENTRY('.LT.', LSS-THAN, INFIX, 50, 
OPERATOR-ENTRY('.LE.*» LSS"EQUAL, INFIX, 50, 
OPERATOR-ENTRY('.NOT.*, NOT; PREFIX, 200, 
OPERATOR-ENTRY('.AND.". AND, INF IX, 0. 
OPERATOR-ENTRY('.OR.*)” OR INF IX, . 
OPERATOR-ENTRY('.XOR.', XOR, INFIX, 10, 
OPERATOR-ENTRY(*.EQV." > EQV, INFIX, 10, 
OPERATOR-ENTRY(' .NEQV. ',XOR, INFIX, 10, 


In FORTRAN, bgt expression can be terminated 
scripts), . 
upper bound’ to follow). 
TERMINATOR Sanaa Eater SUBSCR_TERM 
TERMINA *)", TERM_ CLOSE. 
1". TERMICOMMAS 
":", TERM “COLON; 


TOR_ENTRYT 
TERMINATOR_ENTRY ( 
TERMINATOR_ENTRY ( 


BALANCED_PARENS), 


Define the FORTRAN Predefined Identifier Table. 
PRID_ som 5 reeves yeni TABL E, 
PRID_ENT * TROE.' , ATOMIC  ; 
PRID -ENTavee: FALSE.', ATOMIC, tL, 05); 
Define the FORTRAN Built-in Function Table. 


BUILT_IN_FUNCTION_ TABLE (FORTRAN_FUNCTION_TABLE); 


Define the FORTRAN Number Scanner State Table. This table 

Language. 

i 

! 

BIND 

FORTRAN_NUMBER_TABLE = UNKNOWN_NUMBER_TABLE; 

Define the Primary Parser State Table for language FORTRAN. 

Entry in the state table has this format: 
PRIMARY_TRANSITION(operator-code, action, next-state) 


to be taken, the second parameter is the action routine CASE 
Machine. 
PRIMARY_ STATE_TABLE(FORTRAN_PRIMARY_TABLE, 


Do mcacacacacacesarace 


was od 
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Define the FORTRAN Terminator Lexical Token Table for Sten jet os expressions. 
(more subscripts to follow), or by ‘ OY, (strin 


defines the states 
of a Finite-State Machine which picks up all valid numeric constants in the 


! The FORTRAN number table is the same as the number table for Language UNKNOWN, 


Each Transition 


where the first parameter is the operator code which causes the sregettion 
ndex for the 
transition, and the third parameter is the next state in the Finite-State 


: 
DBGPARSER 1h-sep-1984 02:10: AX-11 Bliss-32 v4.0-7 Page 49 
Rie eR oes ray a PRS Pg eT Be a9e nt) 


534 Pp 637 1 PRIMARY_STATE(START_STATE 
535 P 26 g 1 IMARY_TRANSITION(GLOBAL_SLASH START yal GET_GLOBAL), 
5 6 P 2659 1 PRIMARY TRANSITION (BACKSLASH » STARTS GOT_BACKSLASH), 
§ P 2660 1 MARY-TRANSITION(INVOCNUM, SLASH “tivo atuin® GOT_BACKSLASH), 
538 P 2661 1 PRIMARY-TRANSITION(DOT, START_DOT, GOT DOT), 
539 P 2662 1 PRIMARY-TRANSITION(SUBSCRIPT Behar’ SUBSCR. "GOT SUBSCRIPT) 
240 P 663 PRIMARY_TRANSITION(PRIMARY_TERM, START_TERM, END_STATE)) 
348 P 2665 1 PRIMARY_STATE(GET_GLOBAL 
343 Pp 66 PRIMARY_TRANSITION(PRIMARY_TERM, GBL_TERM, END_STATE)), 
545 P 2668 1 PRIMARY STATE (GOT BACKSLASH 
546 P 2669 1 PRIMAR TRANSTTION(BAC KSLASH, SLASH SLASH. GOT_BACKSLASH), 
547 P 2670 1 PRIMARY" “TRANSITION(INVOCNUM, SLASH TNVO OCNUM , GOT_BACKSLASH), 
548 P 2671 1 PRIMARY-TRANSITION(SUB cert SLASA_SUBSCR, GOT SUBSCRIPT), 
2949 P 67¢ PRIMARY-TRANSITION(PRIMARY_TERM, SLASH_ TERA, END_STATE)), 
$22 P 2674 1 PRIMARY STATE (GOT por, 
3932 P 675 1 PRIMARY_TRANSITION(DOT, DOT_DOT, GOT_DOT) 
255 P 2676 1 PRIMARY = TRANSITION ( SUBSC RiPT DOT SUBSCR, GOT_SUBSCRIP 0, 
$396 P 3677 PRIMARY—TRANSITION(PRIMAR Y TERM, BOT_TERM, END_STATE)) 
2556 P sors 1 PRIMARY_STATE(GOT_SUBSCRIPT, 
seer Pp so00 1 PRIMARY_TRANSITION(DOT, SUBSCR_DOT, GOT_D 
558 P 2681 1 PRIMARY-TRANSITION(SUBSCRIPT, SUBSCR CUBScR. *GOT_SUBSCRIPT), 
$228 . sone ! PRIMARY ~ TRANSIT ION(PRIMARY _TERM, SuBSCR. TERM, ENB_STATE)), 
2561 3684 PRIMARY_STATE(END_STATE)); 
seeg 2686 1 
$206 at ! Define the table of pointers to the parse tables for FORTRAN. 
$26? P 2689 1 LANGUAGE TABLES (LANGUAGE = FORTRAN 
2567 P 2690 1 CHA RTBL = FORTRAN Meu 
2568 P 2691 1 IDENT OPTBL = FORTRAN IDENT OPTBL 
2569 P 2692 1 OPCHAR -OPTBL = FORTRA _OPCHAR_OPTBL, 
2570 P 2693 1 BLE = _FORTR N-NUMBER F 
2571 P 2694 1 PRIMAR Ry FORTRAN PRIMARY TABLE, 
2572 P 2695 1 RTE ERRee = “FORTRAN N_SUBSCR_TERM_TBL, 
2573 P 2696 1 PRIDTaL = FORTRAN PRID-TABL 
2574 2697 1 F_TABLE = FORTRAN_FUNCTION. TABLE); 
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MACRO PARSE 


to scan and parse the MACRO Language. 


Define the MACRO Character Table. 


Peecececasacevecacesacacea 


CHAR =EXCERTION Teg ncn CHARTBL, 
CHAR_ERTRY OTAER, IDENT oANYUWERE) » 
CHAR “ENTRYCS* OTHER, DENT ANYWHERE ) 
CHAR_ENTRY('.", DOT, 


CHAR_ENTRY('<', 
CHARTENTRY('>*. OTHER, TERMINATOR) ) 


T SAipoLe 


R START, OPCHAR 
IDENT IDENT_END), 
OTHER, OPCHAR, ADDRESS OP) 


AX-11 B 
DEBUG.S 


Liss-32 V4 


Page 50 
RC JDBGPARS 


a 38:19:59 


TABLES 


eek. 635, 1 


This section includes all the Lexical Scanner and Parser tables needed 


What is listed ef is actually a List of 
exceptions to the Character Table for Language UNKNOWN 


ADDRESS_OP, SPECIAL_SYMBOL, 


; Define the MACRO Operator Table for operators whose names are identifiers. 


OPERATOR senaton cnt IDENT _OPTBL 


OPERA ENTRY (YeQc*, EQUAL, 
OPERATOR-EN RY("EQLU', EQUAL 
OPERATORZENTRY (NEG NOT_EQUAL, 
OPERATOR-ENTRY('NEQU’, NOTEQUAL, 
OPERATOR-ENTRY('GTR’, GTR-THAN, 
OPERATOR-ENTRY('GTRU', GTR-THAN_U, 
OPERATORENTRY('GEQ',  GTR-EQUAL, 
OPERATOR-ENTRY('GEQU’, GTRTEQUAL_U, 
OPERATOR-ENTRY('LSS',  LSS"THAN, 
OPERATOR-ENTRY('LSSU', LSS"THAN_U, 
PERATOR-ENTRY('LEQ', LSS "EQUAL, 
PERATOR-ENTRY(*LEQU’, LSS"EQUAL_U, 
OPERATOR-ENTRY('NOT’, BIT-NOT, 
OPERATOR-ENTRY('AND',  BIT"AND, 
OPERATOR-ENTRY(*OR',  BIT“OR, 
OPERATOR ZENTRY( EQ . BITZEQV, 
OPERATOR-ENTRY('XOR', BIT XOR 
OPERATOR-ENTRY("MOD', REMAINDER, 


! Define the MACRO Cperator Table, for, operators 

i operator characters such as 

which are part of DEBUG i ll, Syabols touch 

OPERATOR Loy beng | OPCHAR _OPTBL, 
OPERATOR Ry('\', 


-EN GLOBAL SLASH, 
OPERATOR~ “ENTRY(*\", 


BACKSLASH, 
OPERATOR_ENTRY('(', OPENPAREN. 
OPERATOR-ENTRY(")*, CLOSEPAREN, 
OPERATOR-ENTRY(*<", BITSELECT, 
OPERATOR“ENTRY(',' INDIRECT, 
OPERATOR-ENTRY('@", INDIRECT, 
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whose names are composed of 
nis, poole includes operators 
as 


(12) | 


— cL CC CL CT 


MACRO_NUMBER_TABLE = UNKNOWN_NUMBER_TABLE; 
Define the Primary Parser State Table - Language MACRO. Each transition 

Entry in the state table has this forma 

PRIMARY_TRANSITION(operator-code, action, next-state) 

where the first parameter is the operator code which causes the transition 

to be taken, the second parameter is the action routine CASE index for the 

transition, and the third parameter is the next state in the Finite-State 

Machine. 
PRIMARY _STATE_TABLE (MACRO_PRIMARY_TABLE, 


PRIMARY STATE (START STATE 
PRIMARY TRans {1 ONCGACESLASK SLASH 


| K 1 
DBGPARSER 16-Sep-1984 210: AX-11 Bliss-32 V4.0-74 Page $1 | 

Ries ba ae 1h 95:19:43 DEBUG.SR bi isecsaneen.o89s1 . (12) 
633 P 2755 OPERATOR_ENTRY('+', UNARY_PLUS PREFIX, 3 0, 90), | 
6 P 3006 OPERATOR-ENTRY('=", UNARY efinus, PREFIX, 200, 90), | 
635 P 27 OPERATOR_ENTRY(‘a@', HIFT, INF IX, 8. Bp}. 
636 P 27 8 OPERATOR_ENTRY(‘'®', RULTEBLY, INFIX, ° 0), 
637 P 275 OPERATOR_ENTRY('/', IVID INFIX, 70, 10) 
638 P 2760 OPERATOR_ENTRY(‘+', ADD INFIX, 60, 60), 
639 P 761 OPERATOR-ENTRY('=", x tenet. INFIX, 60, 60) 
et rh | | 
64 765 ! Define the MACRO Terminator Lexical Token Table for subscript expressions. | 
oie te Since MACRO does not have subscripting, this table is empty. | 
646 768 1 TERMINATOR_TABLE(MACRO_SUBSCR_TERM_TBL); 
68 199 
$6? 44 Define the MACRO Predefined Identifer Table. 
$33 718 PRID_TABLE (MACRO_PRID_TABLE); | 
65 775 
2654 3776 Define the MACRO Built-in Function Table. 
see 2778 1 BUILT_IN_FUNCTION_TABLE (MACRO_FUNCTION_ TABLE); | 
seen 3th | 
2659 ora ' Define the MACRO Number Scanner State Table. This table defines the states | 
2660 2782 ! of a Finite-State Machine which picks up all valid numeric constants in the 

266 sie Language. 

ge58 $73 ! The MACRO number table is the same as the number table for language UNKNOWN. 

2665 3787 BIND 

2666 788 

2667 sie? 

2668 790 

2669 791 

get 
67 
$78 
674 
675 


Demrecararacasesvacere 


START _GBL, GET GLOBAL), 
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So NOUS 


Pp 
Pp 
Pp 
Pp 
P 2805 PRIMA YT TION(BAC START SLASH, GOT BACKSLASH), 
Pp 0¢ PRIMARY~ TRANS! TION( INVOCNU *seaen TNVOCNUM, GOT _BACKSLASH) , 
p 9 PRIMARY— TRANSITIONCPRIRARY. arity START_TERM, END-STATE)), 
Pp i: PRIMARY_STATE(GET_GLOBAL 
88 P 810 PRIMARY_TRANSTTION(PRIMARY_TERM, GBL_TERM, END_STATE)). 
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1b-sep-19 4 t 98: 19: }3 AX-11 BL A iggeze V4.0-7 


14-Sep-1984 DEBUG. SRC.JDBGPARSER. a3 31 
BACKSLASH 
~TRANSTTION (BACK SLASH, SLASH_SLASH, GOT_BACKSLASH), 
RANSITION(INVO SLASH _TNVOCNUM, GOT BACKSLASH), 
TION(PRIRARY MteRK. SCASH_TERM, END-STATE)), 
); 


Define the table of pointers to the parse tables for MACRO. 
LANGUAGE —iiemacate 5 = MACRO 


= MACRO_CHARTBL, 
IDENT OPTBL = MACRO IDENT_OPTBL 
OPCHAR_O OPTBL = MACRO_OPCHAR_OPTAL, 
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PASCAL PARSE TABLES 


This section includes all the Lexical Scanner and Parser tables needed 
to scan and parse the PASCAL Language. 


i 
1 
1 
! 
1 
' 
i] 
' 
] 
! Define the PASCAL Character Table. What is listed here is actually a list of 
exceptions to the Character Table for Language UNKNOWN. 
CHAR_EXCEPTION TABLE (PASCAL_CHARTBL, 
CHAR_ENTRY('<', OTHER, OPCHAR, OPCHAR_INFIX, ADDRESS_OP), 
CHAR_ENTRY('=", OTHER, OPCHAR, OPCHAR_INFIX, TERMINATOR), 
TERMINATOR), 
T SPECIAC_SYMBOL), 
CHAR_ENTRY('.', DOT 
CHAR ENTRY CE OTHER 


: . OPCHAR 
CHARTENTRY('J*, OTHER, TERMINATOR)); 


Define the PASCAL Operator Table for operators whose names are identifiers. 


OPERATOR_TABLE (PASCAL_IDENT_OPTBL 
OPERATOR_ENTRY('DIV*, Int DIVIDE, 


# INF IX 
pOLUS, INF IX 

OPERATOR-ENTRY('REM'. REMAINDER, INF IX 
OPERATOR ENTRY(*°AND’. AND, INF IX 
, OR INF IX 
OPERATOR-ENTRY('NOT’, NOT, PREF I 
OPERATOR-ENTRY("IN', SET_MEMBER, INF IX 


VOooOnnana~s 
wwwewerwrvew 


“es © 8&® 8& & & 


0 
0 
0 
0 
0 
0 
0 


: Define the PASCAL Operator Table for operators whose names are composed of 
! operator characters such as ‘‘+'’, ‘'="", or ‘‘#"’, This table includes operators 
: which are part of DEBUG Primary Symbols (such as ‘'\"’). 


OPERATOR_TABLE (PASCAL 
OPERATOR_ENTR 


OPCHAR_OPTBL 

LENTRY('\', GLOBAL_SLASH, PREFIX, 0, . PRIMARY), 
OPERATOR-ENTRY('\', BACKSLASH, INFIX, 0, 0, PRIMARY), 
OPERATOR-ENTRY('C’, SUBSCRIPT. postr ix.0, ; PRIMARY). 
OPERATOR-ENTRY(*.', DOT INFIX, 0, 0, PRIMARY), 
OPERATOR-ENTRY(***, PASCAL_DEREF, POSTFIXx,0 PRIMARY) 
OPERATOR-ENTRY("(", BIF_OP; POSTFIX, 6, 6, PRIMARYS, 
OPERATOR_ENTRY('(*, OPENPAREN, PREFIX, 200, _ 5, LEXICAL), 
OPERATOR-ENTRY(*)", CLOSEPAREN, POSTFIX, 6, 200. LEXICAL). 
OPERATOR-ENTRY('C', OPENSET, PREFIX, 200, LEXICAL), 
OPERATOR-ENTRY('+", UNARY_PLUS PREFIX, 200, 60}, 
A A BS bg : ,: 

= oa = 6 6 ’ e 
OPERATORTENTRYC® 7°, DAWIDES” INFIX, 70. 703: 
OPERATOR_ENTRY(‘'+', INFIX, 60, 60), 
OPERATOR-ENTRY('=", SUBTRACT, INF IX, $ : : ); 

Y < e L o o o e 

OPERATOR-ENTRY("<* SS_THAN INF IX ) 


° IA 
NUMBER START, OPCHAR, ADDRESS_OP, SPECIAL_SYMBOL, TERMINATOR), 


ponecnncanniersneetatninesee 
| N 1 

| DBGPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 54 
“VOe~000 12-8681 382 95:19:43 DEBUG. SRCISBGPANSER,B3951 . 3) 
3; 2767 P 8 1 OPERATOR_ENTRY('<=' LSS_EQUAL, INFIX, ° ), 

: 2768 P B89 1 OPERATORTENTRY('>'" GTR_THAN, INFIX, 5° 6}: 

3: 2769 P 2890 1 OPERATOR_ENTRY( ‘>= GTR_EQUAL, INFIX, 8. 0), 

'3 2770 P 2891 1 OPERATOR_ENTRY(‘=' EQUAL INFIX, . wee 

: 2771 89¢ 1 OPERATOR-ENTRY(*<>*, | NOT_EGQUAL, INFIX, 50, 50)5; 

: ae: 895 1 

3; 277 894 1 

3 ae Ree : } Define the PASCAL Terminator Lexical Token Table for subscript expressions. 
3; 2776 P 2897 1 TERMINATOR_TABLE (PASCAL SygsCR TERM_TBL 

> 2777 P 2898 1 TERMINATOR_ENTRY('J', TERM CLOSE), 

: 2778 P 2899 1 TERMINATOR-ENTRY(':', TERM~COLON, MUST_BE_SINGLE), 

3 2779 900 1 TERMINATOR-ENTRY(',", TERM-COMMAS); 

: 2780 901 1 

; 2781 902 1 

; 144 34'¢4 : Define the PASCAL Predefined Identifier Table. 

; $t8c P $308 1 PRID_TABLE (PASCAL _PRID_TABLE 

: 785 P 906 1 PRID_ENTRY('TROE', ATOMIC, TF, 1) 

: 2786 P 2907 1 PRIDENTRY('FALSE®, ATOMIC, TF, 05, 

: 2787 2908 1 PRID-ENTRY('NIL", TPTR, Z, 0)): 

; 2788 34'84 1 

3: 2789 919 1 . 

3 soa0 sors ; Define the PASCAL Built-in Function Table. 

; 144 2913 1 BUILT_IN_FUNCTION_TABLE (PASCAL_FUNCTION_TABLE); 

; 279 2914 1 

3 2794 2915 1 

; 2795 2916 1 ! Define the PASCAL Number Scanner State Table. This table defines the states 
3: 2796 2917 1! of a Finite-State Machine which picks up all valid numeric constants in the 
BE IBY Tentune 

: 1444 $35e : } The PASCAL number table is the same as the number table for language UNKNOWN. 
; 2801 $356 1 BIND 

3 44 2925 1 PASCAL_NUMBER_TABLE = UNKNOWN_NUMBER_TABLE; 

mo BEY 

> 2805 $959 1 ! Define the Primary Parser State Table for language PASCAL. Each transition 
; 2807 $3 5 : Entry in the state table has this format: 

: 44 $99 : PRIMARY_TRANSITION(operator-code, action, next-state) 

: 2810 931 1! where the first parameter is the operator code which causes the transition 
3 2811 936 1 ! to be taken, the second parameter is the action routine CASE index for the 
3 saig 933 1 ! transition, and the third parameter is the next state in the Finite-State 
lj ait oee : } Machine. 

: B15 4 936 PRIMARY_STATE_TABLE (PASCAL_PRIMARY_TABLE, 

3 BI? P 338 1 PRIMARY _STATE(START_STATE 

; 2818 P 2939 1 PRIMARY_ TRANS] TTON(GLOBAL SLASH, START_GBL, GET GLOBAL), 

: 2819 P 2940 1 PRIMARY_TRANSITION(BACKSLASH, SfART_SLASH, GOT BACKSLASH), 

3 2820 P 2941 1 PRIMARY TRANSITION(INVOCNUM, SLASH TNVOCNUM, GOT_BACKSLASH), 

: 2821 P 2942 1 PRIMARY_TRANSITION(DOT, START_DO DOT), 

3 ase P 2943 1 PRIMARY~TRANSITION( SUBSCRIPT START _SUBSCR, GOT_SUBSCRIPT), 

3; 282 P 2944 1 PRIMARY” TRANS] TION(PASCAL_DEREF, START_DEREF, GOT_DEREF), 


: s | 
DBGPARSER 16-Sep-1984 02:10:13 AX-11 Bliss-32 V4.0-74 Page 55 DB 
v04=000 ers 03:19:43 DEBUG. SRCIBBCPANSER. 63951 ’ a vou 
> 2824 P 2945 1 PRIMARY _TRANSITION(BIF OP, START_BIF CALL, END STATE) 

: 8 2 P 946 PRIMARY TRANSITION(PRIMARY_TERM, START_TERM, END_STATE)), 

: 2827 P 2948 1 PRIMARY_STATE(GET_GLOBAL 

; 8 g P 949 PRIMARY_TRANSTTION(PRIMARY_TERM, GBL_TERM, END_STATE)), | 
; 2830 Pp 2951 1 PRIMARY_STATE(GOT_BACKSLASH 
> 2831 P 936 c PRIMARY_TRANSITION(BACKSLASH, SLASH_SLASH, GOT_BACKSLASH), 
: B3¢ P 2953 1 PRIMARY-TRANSITION(INVOCNUM, SLASH_INVOCNUM, GOT_BACKSLASH), 
> 283 P 2954 1 PRIMARY-TRANSITION(DOT, SLASH_DOT DOT), | 
+ 2834 P 2955 1 PRIMARY-TRANSITION(SUBSCRIPT, SLASH. SUBSCR, GOT_SUBSCRIPT), 

> 2835 P 2956 1 PRIMARY-TRANSITION(PASCAL_DEREF, SLASH_DEREF, GOT_DEREF), 
; 856 P 93/ PRIMARY_TRANSITION(PRIMARY_TERM, SLASH-TERM, END_STATE)), | 
: 2838 P 2959 1 PRIMARY_STATE(GOT_DOT, 

> 2839 P 2960 1 PRIMARY_TRANSITION(DOT, DOT_DOT, GOT_DOT), 

> 2840 P 2961 1 PRIMARY-TRANSITION(SUBSCRIPT, DOT SUBSCR, GOT_SUBSCRIPT), 

3 2841 P 96¢ 1 PRIMARY-TRANSITION(PASCAL_DEREF, BOT_DEREF, GOT_DEREF), 

; g84¢ P 363 PRIMARY TRANSITION(PRIMARY_TERM, DOT-TERM, END_STATE)), 

: 2844 P 2965 1 PRIMARY_STATE(GOT_SUBSCRIPT, 

> 2845 P 2966 1 PRIMARY_TRANSITION(DOT, SUBSCR_DOT, GOT_DOT) 

> 2846 P 2967 1 PRIMARY-TRANSITION(SUBSCRIPT, SUBSCR_SUBSCR, GOT SUBSCRIPT), 

> 2847 P 2968 1 PRIMARY-TRANSITION(PASCAL_DEREF, SUBSCR_DEREF, GOT_DEREF), 

; 9k} 4 2eP : PRIMARY_TRANSITION(PRIMARY_TERM, SUBSCR_TERM, END STATE)), 

: 2850 P 2971 1 PRIMARY_STATE(GOT_DEREF, 

; 851 P 2972 1 PRIMARY_TRANSITION(DOT, DEREF_DOT, GOT_DOT), 

; 85¢ P 2973 1 PRIMARY-TRANSITION(SUBSCRIPT, DEREF SUBSCR, GOT SUBSCRIPT), 

> 285 P 2974 1 PRIMARY-TRANSITION(PASCAL_DEREF, DEREF_DEREF, GOT_DEREF), 

: 854 P 2973 PRIMARY-TRANSITION(PRIMARY_TERM, DEREF-TERM, END_STATE)), 

: 2856 2977 1 PRIMARY_STATE(END_STATE)); 

> 2857 2978 1 

: 2858 3979 1 

3 44 +4 : Define the table of pointers to the parse tables for PASCAL. 

: 2861 P 2382 1 LANGUAGE_TABLES(LANGUAGE = PASCAL 

3 2862 P 298 1 CHARTBL = PASCAL_CHARTBL, 

> 286 P 2984 1 IDENT OPTBL = PASCAL _IDENT_OPTBL 

> 2864 P 2985 1 OPCHAR_OPTBL = PASCAC_OPCHAR_OPTBL, 

> 2865 P 2986 1 UMBER = PASCAL NUMBER” TAB 

+ 2866 P 2987 1 PRIMARY TABLE = PASCAL PRIMARY TABLE, 

; 3867 P 3988 1 SUBSCR_TERMS = PASCAL_SUBSCR_TERM_TBL, 

> 2868 P 2989 1 PRIDTBC = PASCAL_PRID-TABLE, 

> 2869 P 2990 1 BIF_TABLE = PASCAL_FURCTION. TABLE, 001 
|: 2870 2991 1 MULTIPLE _SUBSCR = TRUE); 
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; 287 992 1! PL/I PARS TA : 

Be Re a Sea | 
; 2875 995 1 | 

: 2876 996 1! This section includes all the Lexical Scanner and Parser tables needed 
: ere 444 : } to scan and parse the PL/I language. 

: 2879 999 1 

> 2880 000 1: 

; 2881 001 1 ! Define the PL/I Character Table. What is Listed here is actually a list of 

; see 83 ; exceptions to the Character Table for Language UNKNOWN. 

> 2884 P 3004 1 CHAR_EXCEPTION TABLE(PLI_CHARTBL 

: 2885 P 3005 1 ~CHAR_ERTRY('S', OTHER, [DENT ANYWHERE), | 
3 2886 P 3006 1 CHAR-ENTRY(' |", OTHER, IDENT_ANYWHERE), 

 $8ae P 3008. | CHARENTRYC*E*, OTHER, OPENARD eee 

: 2889 P 3009 1 CHARTENTRY('!", OTHER, OPCHAR, OPCHAR_INFIX), 

3 2890 P 3010 1 CHAR-ENTRY('!", OTHER, OPCHAR, OPCHAR_INFIX), 

; 2891 P 3011 1 CHAR-ENTRY('=", OTHER, OPCHAR, OPCHAR_INFIX, TERMINATOR), 

3 289 Pp 3012 1 CHAR_ENTRY('*", OTHER, OPCHAR, OPCHAR_INFIX, SPECIAL_SYMBOL), 

; 289 Pp 30) 1 CHARTENTRY('=", MINUS, OPCHAR, ADDRESS OP, SPECIAL_CASE), 
3 2894 P 3014 1 CHARTENTRY('<', OTHER, OPCHAR, OPCHAR_INFIX, ADDRESS. OP) 

; +344 ei2 . CHAR-ENTRY(">", OTHER, OPCHAR, OPCHAR-INFIX, TERMINATOR)); 

: 2897 3017 1 

: 444 so18 ! Define the PL/I Operator Table for operators whose names are identifiers. 

: 2900 3020 1 OPERATOR_TABLE(PLI_IDENT_OPTBL); 

: 2901 3021 1 * ~¥ ” 

3; 2902 $058 1 

3; 2903 3023 1 ! Define the PL/I Operator Table for operators whose names are composed of 

; Sope $05¢ : : 0 erator characters such 28 toi McA Pina his, table includes operators 

; ! which are part o rimary Symbols (such as ‘ 

3; 2906 026 1! 

3 2907 P 3059 1 OPERATOR_TABLE(PLI_OPCHAR_OPTBL, 

3 2908 P 3028 1 OPERATOR_ERTRY('\", GLOBAL_SLASH, PREFIX, 0, 0, PRIMARY), 

3 2909 P 3029 1 OPERATOR-ENTRY('\', BACKSLASH, INFIX, 0, 0, PRIMARY), 

Bie BB | BERNBEMMRTESESS SURBERTPTS ras 8 BRA 

> 291 P 3032 1 - ae , Mayne teat : 

; $918 Pp 03 1 OPERATOR_ENTRY('(', OPENPAREN, PREFIX, 200, 5, LEXICAL), 

BBB | BEERATOR-EMTRTES2e:GROREPARGL. RTE of 990s CEnTCAL 

; 2318 P 3036 1 OPERATOR-ENTRY('=", UNARY-MINUS, PREFIX, 00. 10): 

3 2917 P 3037 1 UPERATOR-ENTRY(**" BIT_N PREFIX, 200, 30), 

: 2918 P 3038 1 OPERATOR_ENTRY( ' ## POWER OF, INFIX, 92, 90), " 
: 2919 P 3039 1 OPERATOR-ENTRY(‘®' MULTIPLY INFIX, 80, 80) 

> 2920 P 3040 1 OPERATOR“ENTRY('/*. DIVIDE, * INF IX, 60. 80). 

: 353 p 042 : OPERATOR-ENTRY C=" UBTRACT INEIK. 60. 803. 

; $958 P 3043 1 OPERATOR“ENTRY('::! CONCATENATE, — INFIX, 83° 8} 

+ 2924 P 3044 1 OPERATOR-ENTRY('>', TR_THAN, INFIX, 20. 0), 

; 929 P 3045 1 OPERATOR-ENTRY('<* LSS" THAN, INFIX, 20). 

: 2926 P 3046 1 OPERATOR-ENTRY('*> LSS"EQUAL, INFIX, 50, 50), 

: 2927 P 3047 1 OPERATOR-ENTRY('"*<° GTR-EQUAL, INFIX, 20. 20). 

: 2928 P 3048 1 OPERATOR-ENTRY('=", EQUAL, INFIX, 50, 50), 


ead eS ae BF aig ang aera 
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3: 2929 P 3049 1 OPERATOR_ENTRY(‘“=', NOT_EQUAL, INFIX, .: mee 

; 2930 P 3050 1 OPERATOR_ENTRY(' i LSS-EQUAL, INFIX, . 30). 

3; 2931 P 3051 ‘1 OPERATOR_ENTRY('>=', GTR_EQUAL, INFIX, ‘ 0), 

3; 29 ¢ P p26 1 OPERATOR_ENTRY('@', BIT_AND, INFIX, 45, 45) 

: 29 053 1 OPERATOR-ENTRY(':', BITOR, INFIX, 40, 40)5; 

Be Bey 

: $36 B28 1! Be fine the Lexical Token Entry for the PL/I dereference operator ‘'=>''. 

3; 2937 057 1°! This token is lexically scanned separately. 

; 2938 058 1! 

3 2939 059 1 BIND 

3: 2940 060 1 PLI_ARROW_ TOKEN = 

: 2941 061 1 “OPERATOR ENTRY('=>", PLI_DEREF, INFIX, 0, 0, PRIMARY); 

3; 294 poe 1 

3; 294 063 1 

3 sce bee : Define the PL/I Terminator Lexical Token Table for subscript expressions. 
5 2946 P 3066 1 TERMINATOR TABLE (PL SUBSCR TERM, TBL, 

: 2947 P 3067 1 TERR MINA R_ENTRY(' r. TERR C LOSE), 

3: 2948 P 3068 1 TERMINATOR@ ENTRY('°:°, TERM ~COLON “MUST _BE_SINGLE), 

3 2949 3069 1 TERMINATOR ~ENTRYC ; TERM-COMMAS); 

; 2950 3070 1 

3; 2951 3071 1 

; $325 4 : : Define the PL/I Predefined Identifier Table. 

3 2954 3074 1 PRID_TABLE(PLI_PRID_TABLE); 

3; 2955 3075 1 

: 2956 3076 1 

3 2957 3077 1 ! Define the PLI Built-in. Function Table. 

: 2958 3078 1! 

: 2959 3079 1 BUILT_IN_FUNCTION_TABLE(PLI_FUNCTION_TABLE); 

: 2960 080 1 

3; 2961 308) 1 

3; 296 et) 1 ! Define the PLI Number Scanner State Table. This table defines the states 
3; 296 $05 1! of a Finite-State Machine which picks up all valid numeric constants in the 
3 S4¢: Bae ; Language. 

; 2966 3086 1! Define the Language PL] Number Scanner State Table. This is a finite-state 
; 3444 bee : machine in which each transition is of the form: 

3 4 ie : NUMBER_TRANSITION(character-class, action-index, next-state) 

3: 2971 091 1 ' where the character-class and action-index names are automatically prefixed 
: a7 44 : by "'NUMSTSK_CLASS_** or ‘‘NUMSTSK_ACT_"* by the NUMBER_TRANSITION macro. 

: 2974 P 3094 1 NUMBER_STATE_TABLE(PLI_NUMBER_TABLE, 

: 2975 P 3095 1 

3 7 P 94 1 NUMBER _STATE(START_ STATE 

> 297 P 3097 1 NUPBER_TRANSITION(DIGIT GO.PAST PACK ACCUM INT). 

> 2978 Pp 3098 1 NUMBERT TRANS TION(DOT bo LEADING DOT) 

; 979 p 099 NUMBER” TRANSITION(OTHER, any meen: D_STATE)S, 

; 81 P 199 i NUMBER_STATE(LEADING DOT 

3: 298 P 196 1 NUABER_ TRANSITION(DIGIT, GO_ PAST PACK FRAC 35 ie FRAC), 

; 985 P 103 NUMBERTRANSITION(OTHER, NOT_NUMBER, END_STATE)) 

: 2985 Pp 3105 1 NUMBER_STATE(ACCUM_INT, 
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NUMBER_TRANSITION(DIGIT, GO_PAST_PACK, ACCUM_INT), 

NUMBER-TRANSITION(DOT, OO_NOTHING, ACCUM_FRAC), 

NUMBER-TRANSITION(HEXOIGIT, DO_NOTHING, ACCUM_HEX), 

NUMBER-TRANSITION(B, DO_NOTHING, ACCUM-HEX), 

NUMBER-TRANSITION(D, DO-NOTHING, ACCUM HEX? , 

NUMBER-TRANSITION(E, DO-NOTHING, ACCUM-HEX). 

NUMBER-TRANSITION(OTHER; GOT_PACK_NUMBER, END_STATE)), 
NUMBER_ STATE (ACCUM_HEX. 

NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_HEX) 

NUMBER-TRANSITION(HEXDIGIT, DO_NOTHING, ACCUM_HEX), 

NUMBER-TRANSITION(B, DO_NOTHING, ACCUM/HEX), 

NUMBER-TRANSITION(D, DO-NOTHING, ACCUM-HEX), 

NUMBER-TRANSITION(E, DO-NOTHING, ACCUM-HEX) 

NUMBER-TRANSITION(OTHER, GOT_NUMBER, END_STATE)), 
NUMBER_ STATE (ACCUM_FRAC 

NUMBER _ ITTON(DIGIT, GO_PAST_PACK_FRAC, ACCUM_FRAC), 

NUMBER-TRANSITION(DOT, BACKOP_PTRS, END STATE), 

NUMBER-TRANSITION(E, MARK_E_ERP, GET EXPONENT). 

NUMBER TRANSITION(D, MARK-D-EXP, GET-EXPONENT), 

NUMBER-TRANSITION(G, MARK-G-EXP, GET-EXPONENT), 

NUMBER-TRANSITION(Q, MARK~Q-EXP, GET EXPONENT) 

NUMBER-TRANSITION(OTHER, GOT_PACK_NUMBER, END_STATE)), 
NUMBER_ STATE (GET_EXPONENT 

NUMBER_TRANSITION(DIGIT, DO NOTHING, ACCUM_EXP), 

NUMBER_TRANSITION(PLUS, DO_ROTHING, GET_EXP SIGN 

NUMBER-TRANSITION(MINUS, DO_NOTHING, GET EXP SIGN), 

NUMBER-TRANSITION(OTHER, BACKUP_PTRS, END_STATE)), 
NUMBER_STATE(GET_EXP_SIGN 

NUMBER_TRANSTTION(DIGIT, DO_NOTHING, ACCUM_EXP) 

NUMBER TRANSITION(OTHER, GOT_NUMBER, END_STATE)S, 
NUMBER_ STATE (ACCUM_EXP, 

NUMBER_TRANSITION(DIGIT, DO_NOTHING, ACCUM_EXP) 

NUMBER-TRANSITION(OTHER, GOT_NUMBER, END_STATE)S, 
NUMBER_STATE(END_STATE 

NUMBER_TRANSITION(OTHER, GIVE_ERROR, END_STATE))); 


Define the Primary Parser State Table for language PL/I. 


Each transition 


Entry in the state table has this format: 
PRIMARY_TRANSITION(operator-code, action, next-state) 
where the first parameter is the operator code which causes the transition 


to be taken, the second parameter 


s the action routine CASE index for the 


transition, and the third parameter is the next state in the Finite-State 


Machine. 


PRIMARY STATE(START STATE 


RIMARY_STATE_TABLE(PLI_PRIMARY_TABLE, 


PRIMARY_TRANSITTON(GLOBAL_SLASH, START_GBL, GET_GLOBAL), 


RLLLQLQLLVLVV2V22222 


Seal 
mn 
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> 3043 P 3163 1 PRIMARY_TRANSITION(BACKSLASH, START_SLASH, GOT_BACKSLASH), 
: 3044 P 3164 1 PRIMARY_TRANSITION(INVOCNUM, SLASH TNVOCNUM, GOT_BACKSLASH), 
: 3045 P 3165 1 PRIMARY-TRANSITION(DOT, START_DOT PLI, GOT_OOT), 
: 046 P 3166 1 PRIMARY-TRANSITION(SUBSCRIPT, START_SUBSCR-PLI, GOT SUBSCRIPT), 
> 304 P 3167 1 PRIMARY-TRANSITION(PLI_DEREF, START DEREF PLI, START. STATE), 
; 048 P 168 PRIMARY_TRANSITION(PRIMARY_TERM, START_TERM, END_STATE)), 
: 3050 P 199 1 PRIMARY_STATE(GET_GLOBAL 
; 091 P 4 PRIMARY_TRANSITION(PRIMARY_TERM, GBL_TERM, END_STATE)), 
; bag P 198 1 PRIMARY_STATE(GOT_BACKSLASH 
> 3054 P3174 1 PRIMARY _TRANSITION(BACKSLASH, SLASH_SLASH, GOT BACKSLASH), 
: 3055 Pp 3175 1 PRIMARY-TRANSITION(INVOCNUM, SLASH INVOCNUM, GOT_BACKSLASH), 
: 3056 P3176 1 PRIMARY-TRANSITION(DOT, SLASH_DOT PLI, GOT_bOT), 
: 3057 Pp 3177 1 PRIMARY-TRANSITION(SUBSCRIPT, SLASH_SUBSCR-PLI, GOT_SUBSCRIPT), 
: 3058 P3178 1 PRIMARY-TRANSITION(PLI_DEREF, SLASH-DEREF PLI, START STATE), 
; 3059 P 79 PRIMARY_TRANSITION(PRIMARY_TERM, SLASH_TERM, END_STATE)), 
: 3061 P 3181 1 PRIMARY_STATE(GOT_DOT, 
: 06¢ Pp 3182 1 PRIMARY_TRANSITION(DOT, DOT_DOT_PLI, GOT_DOT 
: 306 Pp 3183 1 PRIMARY TRANSITION(SUBSCRIPT, DOT_SUBSCR~PLI, GOT SUBSCRIPT), 
> 3064 Pp 3184 1 PRIMARY-TRANSITION(PLI_DEREF, DOT-DEREF_PLI, START_STATE) 
; 3065 P 3185 PRIMARY_TRANSITION(PRIMARY_TERM, DOT_TERM_PLI, END~STATE)S, 
: 3047 Pp 3187 1 PRIMARY_STATE(GOT_SUBSCRIPT, 
: 3608 p 3188 1 PRIMARY_TRANSTTION(DOT, SUBSCR_DOT_PLI, GOT_DOT) 
: 3069 p 3189 1 PRIMARY-TRANSITION(SUBSCRIPT, SUBSCR_SUBSCR-PLI, GOT SUBSCRIPT), 
: 3070 Pp 3190 1 PRIMARY_TRANSITION(PLI_DEREF, SUBSCR-DEREF PLI, START_STATE) 
: ort P 3191 PRIMARY_TRANSITION(PRIMARY_TERM, SUBSCR_TERM_PLI, END“STATE)S, 
: ors 3198 1 PRIMARY_STATE(END_STATE)); 
: 3074 194 1 
; 3075 195 1 
3 $079 138 : Define the table of pointers to the parse tables for PL/I. 
: 3078 P 3198 1 LANGUAGE_TABLES(LANGUAGE = PLI 
: 3079 P 3199 1 CHARTBL = PLI_CHART 
: 3080 P 3200 1 IDENT OPTBL ="PLI_IDENT_OPTBL 
; 3081 P 3201 1 OPCHAR_OPTBL = PLT_OPCHAR_OPTBL, 
: 308 P 208 1 NUMBER — = PLI-NUMBER TABLE. 
3; 308 P 3203 1 PRIMARY _TABLE = PLT_PRIMARY TABLE, 
3 3084 P 3204 1 SUBSCR_TERMS = PLI_SUBSCR_TERM_TBL, 
: 3085 P 3205 1 PRIDTBC = PLI_PR BLE, 
: 086 P 1 TABLE = PCI_FURCTION. TABLE, 
; P 3207 1 MULTIPLE SUBSCR7= FALSE, 
: 3088 208 1 COMPONENTS_IN_PATHNAME = TRUE); 
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RPG PARSE TABLES 


This section includes all the Lexical Scanner and Parser tables needed 
to scan and parse the RPG Language. 


Define the RPG Character Table. What is Listed here is actually a List of 
exceptions to the Character Table for Language UNKNOWN. 


HAR_EXCEPTION TABLE (RPG CHARTBL, 
CHAR_ERTRY('®', OTHER, NOTHING) 
CHAR-ENTRY('<", OTHER, OPCHAR, OPCHAR_INFIX, ADDRESS_OP 
CHAR_ENTRY('>", OTHER, OPCHAR, OPCHAR INFIX, TERMINATOR 
OPC FIX, TERMINAT 


Pe wcecscecacsasasacacecasa 


TERMINATOR), 


CHAR_ENTRY(' *, OTHER, IDENT ANYWHERE) 


CHARTENTRY('S', OTHER, IDENT“ANYWHERE) 5; 


Define the RPG Operator Table for operators whose names are identifiers. 


TOR_ERTRY('ROT', NOT, PREFIX, 200, 11), 
OPERATOR-ENTRY(*°AND’, AND, INFIX, 10, 10), 
OPERATOR-ENTRY('OR’, R INF IX, 19, 10), 
OPERATOR-ENTRY('NOT’, INFIX_NOT, INFIX, 15, 15, LEXICAL)); 

BIND 
RPG_NOT EQL_TOKEN = 
OPERATOR_ENTRY("NOT =", NOT_EQUAL, INFIX, 15, 15), 
RPG_NOT_GTR_TOKEN = 
OPERATOR_ENTRY('NOT >", LSS_EQUAL, INFIX, 15, 15), 
RPG_NOT_LSS_TOKEN = 
OPERATOR_ENTRY('NOT <', GTR_EQUAL, INFIX, 15, 15); 
! Define the RPG Operator Table for operators whose names are composed of 
! operator characters such as ‘+'’, =", or ‘e"’, This table includes operators 
} which are part of DEBUG Primary Symbols (such as ‘\"’). 
OPERATOR_TABLE(RPG_OPCHAR_OPTBL, 
OPERATOR_ERTRY('\", GLOBAL_SLASH, PREFIX, 0, 0, PRIMARY), 
OPERATOR-ENTRY('\', BACKSLASH, INF IX , 0, PRIMARY), 
OPERATOR-ENTRY('(', SUBSCRIPT POSTFIX, . PRIMARY) 
ERATOR-ENTRY('>', PREFIX_GTR, PREFIX, 200, 15, LEXICAL), 
OPERATOR_ENTRY('<', PREFIX"LSS, PREFIX, ‘ 13. LEXICAL), 
OPERATOR-ENTRY('=", PREF IX"EQL, PREFIX, . 15, LEXICAL), 
OPERATOR_-ENTRY(*(', OPENPAREN, PREFIX, » ..5- LEXICAL), 
OPERATOR-ENTRY(")', CLOSEPAREN, POSTFIX, 6, 200, LEXICAL), 
OPERATOR-ENTRY('/*, v INF IX, a Oe 
OPERATOR-ENTRY('+", UNARY_PLUS PREFIX, 3 i 
OPERATOR-ENTRY('="., UNARY“MINUS, PREFIX. 200. 25). 
OPERATOR_ENTRY('+', ADD INF IX, . ), 
OPERATOR-ENTRY('=", SUBTRACT, INF IX, ; 20), 
OPERATOR-ENTRY('>", GTR_THAN, INF IX, . ), 


] 


<2 


— 
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47 P 326 OPERATOR_ENTRY(‘<’, LSS_THAN, INF IX, 15, 15) 0 
48 ef OPERATOR-ENTRY('=", EQUAL, INF IX, 13 15)5; 9 
50 8 IND 0 
1 0 RPG_MULTIPLY_TOKEN = 
§ re OPERATOR_ENTRY(‘®', MULTIPLY, INF IX, 36, 30); 
4 7 
22 a : Define the RPG Terminator Lexical Token Table for subscript expressions. 
25 Pp 8 TERMINATOR TABLE (RPG_SUBSCR_TERM_TBL, 
58 Pp 7 TERMINATOR_ERTRY(')*, TERM_CLOSE), 
59 P A TERMINATOR_ENTRY(':*, TERM_COLON, MUST_BE_SINGLE), 
60 9 TERMINATOR-ENTRY(',", TERM-COMMAS); 
6 81 
8 8 Define the RPG Predefined Identifier Table. 
Bs PRID_TABLE(RPG_PRID_TABLE); 
8 
6? Define the RPG Built-in Function Table. 
89 1 BUILT_IN_FUNCTION_TABLE(RPG_FUNCTION_TABLE); 
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Define the RPG Number Scanner State Table. This table defines the states 

of a Finite-State Machine which picks up all valid numeric constants in the 

Language. Each Transition Entry is of the form: 
NUMBER_TRANSITION(character-class, action-index, next-state) 


' 
i 
: 
: 
4 
: where the character-class and action-index names are automatically prefixed 
8 
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by “'NUMSTSK_CLASS_*’ or ‘'NUMSTSK_ACT_"' by the NUMBER_TRANSITION macro. 


IND 
RPG_NUMBER_TABLE = PLI_NUMBER_TABLE; 
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! Define the Primary Parser State Table for language RPG. Each transition 
! Entry in the state table has this format: 


PRIMARY_TRANSITION(operator-code, action, next-state) 


ooooo 
oCOonoe ar 


t 
' 
' 
1 
’ 
! where the first parameter is the operator code which causes the transition 
!' to be taken, the second parameter is the action routine CASE index for the 
! transition, and the third parameter is the next state in the Finite-State 
Machine. 

P 


RIMARY_STATE_TABLE(RPG_PRIMARY_TABLE, 


PRIMARY STATE (START_STATE 
PRIMARY_TRANSITION(GLOBAL_ SLASH 
R SITION(BACKSLASH, START SLASH, GOT BACKSLASH), 
PRIMARY TRANSITION(CINVOCNUM, SLASH TNVOCNUM, GOT _BACKSLASH), 
PRIMARY-TRANSITLON( 


SSeLES 
as a ts a a 


N 
UBSCRIPT, START SUBSCR, GOT SUBSCRIPT), 
RIMARY_TERM, START_TERM, END_STATE)), 
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04 P 
05 P PRIMARY STATE (GET GLOBAL 
06 p PRIMARY_TRANSTTION(PRIMARY_TERM, GBL_TERM, END_STATE)), 
P PRIMARY_STATE (GOT _BACKSLASH 
P PRIMARY _TRANSITION(BACKSLASH, SLASH SLASH, GOT BACKSLASH), 
P PRIMARY-TRANSITION(INVOCNUM, SLASH TNVOCNUM, GOT BACKSLASH), 
P PRIMARY-TRANSITION(SUBSCRIPT, SLASA_SUBSCR, GOT SUBSCRIPT), 
P PRIMARY-TRANSITION(PRIMARY_TERM, SLASH_TERM, END_STATE)), 
P PRIMARY STATE (GOT SUBSCRIPT 
P PRIMARY_TRANSTTION(SUBSCRIPT, SUBSCR SUBSCR, GOT SUBSCRIPT), 
P PRIMARY-TRANSITION(PRIMARY_TERM, SUBSCR_TERM, END_STATE)), 
PRIMARY _STATE(END_STATE)); 
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TABLE OF POINTERS TO LANGUAGE TABLES 


This section contains the table of pointers to the Lenguopeeseec {Pic 
tables of parser table petnters. In other words, this table in indexed 
by Language code to yield a pointer (relative to TABLEBASE) to the 
table of table pointers built by the LANGUAGE_TABLES macro for the 
individual language above. 


Define the table of pointers to language-specific tables. 


WN —OVDONOUS wn 


POA OMIMUNIVIUIMIUTIUIVT 


ee ee 


; 3 1 
: 4 1 
3 5 1 
$ 1 
: 1 
: 8 1 
5 9 1 
: 3240 1 
: 4) 1 
; 4 1 
3 4 1 
s 44 1 
3 5 1 
3 6 64 1 
: 7 1 
3 RB 1 
3 9 1 
; 3250 1 DBGSK_MACRO) 
H 1 : DBG$K_FORTRAN) 
: 3528 : 
3 4 1 
: 5 1 
: 6 1 
7 } 
$ 9 3 1 
3 0 3 1 


4 
4 N 
24 65 LANGUAGE_TABLE_PTRS: 
3 66 VECTORCDBGSK_MAX_LANGUAGE + 1, LONG] PSECT(DBGSPLIT) PRESET( 
: 325 68 = MACRO_TABLES = TABLEBASE, |! MACRO 
; 325 369 ¢; = FORTRAN TABLES = TABLEBASE, | FORTRAN 
: 33 370 DBGSK"BLISS] = BLISS_TABLES = TABLEBASE, BLISS 
; 325 371 G$K-COBOL] = COBOL-TABLES = TABLEBASE, COBOL 
; $3 2 DBGSK-BASIC = BASIC“TABLES = TABLEBASE, BASIC 
; 325 7 G$K-PLI = PLI_TABLES - TABLEBASE, ! PL/I 
: 325 7% DBGSK-PASCAL] = PASCAL TABLES = TABLEBASE, PASCAL 
: 325 375 G$K~C) = C TABLES - TABLEBASE, / C 
: 325 376 DBG$K_RPG = RPG_TABLES - TABLEBASE,  ! RPG 
: 325 377 DBGSK-~ADA = ADA-TABLES - TABLEBASE, i‘ ADA 
; 326 378 DBGSK-UNKNOWN) = UNKRNOWN_TABLES - TABLEBASES; | UNKNOWN 


K 2 
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; 4 i ROUTINE AAA_DUMMY: NOVALUE = 
; 1 1! FUNCTION 
s § 13 This is a ae | routine which is never called. Its sole purpose is 
: 1! to force out the machine Listing for all the above data tables before 
; ¢ ; the source listing for the first real routine in the module. 
; 1! INPUTS 
3 0 6 1! NONE 
3 88 1! 
: ie 89 1 ! OUTPUTS 
: 327 90 1! NONE 
: 3274 91 1 
: 380? 98 5 opecIN 
3 35/8 94 
3; 3278 395 RETURN; 
3 3279 396 
3; 3280 397 END; 
.TITLE DBGPARSER 
“IDENT \Vv04-000\ 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
00 93 00000 P.AAA: .BYTE 0 : 
0033 00002 . WORD : 
00 00 00 00 00 00 00 00 00004 BYTE 0, 0, 0, 0, 0, 0, 0, 0 : 
54 52 45 56 GE GF 43 07 0000C "ASCII <?>\CONVERT\ : 
00 93 00014 P.AAB: .BYTE 0 : 
0032 00016 . WORD : 
00 00 00 00 00 09 00 00 00018 BYTE 0, 0, 0, 0, 0, 0, 0, 0 : 
54 49 53 4F 50 45 44 07 00020 "ASCII <?>\BEPOSIT\ : 
00 98 00028 P.AAC: .BYTE 0 : 
0038 0002A . WORD : 
00 00 00 00 00 00 00 00 0002c BYTE 0, 0, 0, 0, 0, 0. 0. 0 : 
59 54 49 54 4E 45 44 49 08 000 "ASCII <@>\{DENTITY\ : 
00 O Boer P.AAD: .BYTE 2, 0 3 
004 003F . WORD : 
99 00 00 99 00 00 00 9041 BYTE 0, 0, 0, 0, 0, 0, 0, 0 : 
54 53 4E 4F 43 47 45 aE 0049 "ASCII <8>\NEGCONST\ : 
0 0052 P.AAE: .BYTE 2, 0 3 
00 00 00 0 00 “ tiEr8 BYTE 8 0, 0, 0, 0, 0, 0, 0 ; 
54 2 4E 4F 9 99 4F 98 005 "ASCII <8>\POSCONST\’ : 
00 067 P.AAF: .BYTE 0 3 
00 069 . WORD : 
00 00 00 00 00 00 00 00 000 -BYTE 0, 0, 0. 0. 0, 0. 0 ; 
D 01 “ASCII «<f>\=\ ; 
0 2 75 P.AAG: .BYTE 2. : 
00 7 WORD 3 
00 00 00 00 00 00 00 ° 79 -BYTE 0, 0, 0, 0, 0, 0, 0, 0 ; 
é “ASCII <f>\4\ : 
45 53 é P.AAH: .ASCII \BASE\ : 
6 P.AAJ: .BYTE 1 ; 
45 4€ 49 4C 25 05 “ASCII «<5>\2LINE\ : 
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1 — P.AAK: .BYTE 1 : 
4E 49 4C 25 04 7 ASCII <4>\RLIN\ 3 
P.AAL: .BYTE 3 
49 4C 25 095 ASCII <3>\RL1\ : 
944 P.AAM: .BYTE : 
4C 45 42 41 4C 25 O9A ASCII <6>\%LABEL\ ; 
Ba P.AAN: .BYTE 3 
45 42 41 4C 25 A ASCII <5>\2ZLABE\ : 
BA P.AAO: .BYTE 3 
42 41 4C 25 04 OOA eASCII <4>\2%LAB\ : 
0 ae —E P.AAP: .BYTE 2 : 
41 4C 25 eASCII <3>\2LA\ : 
8s P.AAQ: BYTE : 
45 4D 41 4E 25 0B4 ASCII <5>\2NAME\ : 
§ OOBA P.AAR: .BYT $ 
30 52 25 0088 ASCII <3>\2RO\ : 
: OOBF P.AAS: .BYTE 3 
31 6CS2 «CS 00C0 ASCII <3>\2R1\ : 
8 00C4 P.AAT: .BYTE 3 
32 52 25 00C5 ASCII <3>\RR2\ : 
8 00C9 P.AAU: .BYTE : 
33 52 25 OOCA ASCII = <3>\ER3\ : 
0 OOCE P.AAV: .BYTE 3 
34 52 25 0 OOCF ASCII <3>\ER4\ : 
88 0003 P.AAW: .BYTE : 
35 52 25 0004 ASCII <3>\2R5\ 3 
8 OOD8 P.AAX: .BYTE 8 3 
36 52 25 0 0009 eASCII <3>\2R6\ 3 
0 OODD P.AAY: .BYTE 3 
37 52 25 0 00D ASCII <3>\2R7\ : 
0 OOE2 P.AAZ: .BYTE 3 
38 52 25 0 OOE ASCII <3>\2R8\ 3 
0 OOE7 P.ABA: .BYTE : 
39 52 25 QO 00E8 ASCII <3>\2R9\ 3 
0 OOEC P.ABB BYTE g 
30 31 52 25 3 OOED ASCII <4>\2R10\ 3 
8 Bare P.ABC: .BYTE 3 
31 31 52 25 04 OF ASCII <4>\RR11\ 3 
8 site: P.ABD: .BYT 3 
32 31 52 25 04 OF9 ASCII <4>\2R12\ 3 
8 Bore P.ABE: .BYTE ; 
33 31 52 25 04 OFF ASCII <4>\2R13\ 3 
8 1 P.ABF: .BYTE 3 
34 31 52 25 04 105 ASCII <4>\RR14\ 3 
8 10A P.ABG: .BYTE 5 
35 31 52 25 04 198 ASCII <4>\2R15\ 3 
110 P.ABH: .BYTE 3 
50 41 25 111 ASCII <3>\ZAP\ 3 
115 P.ABI: .BYTE ; 
50 46 25 116 ASCII <3>\RFP\ 3 
11A P.ABJ: .BYTE 3 
50 53 25 118 ASCII <3>\2SP\ 3 
11— P.ABK: .BY 3 
43 50 25 120 ASCII <3>\RPC\ 3 
124 P.ABL: .BYTE g 
4C 53 50 25 04 125 ASCII <4>\RPSL\ 3 
8 12A P.ABM: .BYTE 8 : 


Ste -_—— 


pe a 


M 2 

DBGPARSER 16-Sep-1984 210: AX-11 Bliss-32 V4.0-74 Page 66 
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30 72 25 4 4 ose “ASCII <3>\Fr0\ : 

nn fe 150 ASCII = <3>\Er1\ : 

134 P.ABO: .BYTE : 

32 72 25 135 ASCII <3>\Rr2\ : 

0139 P.ABP BYTE § 

” va O13A ASCII = <3>\Er3\ : 

013E P.ABQ BYTE : 

34 72 25 015F eASCII <3>\Er4\ : 

4 0143 P.ABR BYTE : 

a «6a. Ce ae: °.a8s rh) te <3>\Er5\ : 

36 72 25 a Pk: "ASCII = <3>\%r6\ F 

$8 014D P.ABT BYTE : 

Sy 672 «62S 8 014 ASCII = <3>\Rr7\ : 

: Biz P.ABU BYTE s 

38 72 25 0 01 ASCII <3>\%r8\ : 

3 OEE P.ABV: .BYTE : 

39 72 25 0158 eASCII <3>\Rr9\ : 

08 0015C P.ABW: .BYTE : 

30 31 72 «25 Be 0150 eASCII <4>\%r10\ : 

8 $196 P.ABX: .BYTE : 

31 31 72 25 04 0016 ASCII = <4>\Rr11\ 3 

08 00168 P.ABY: .BYTE : 

32 31 72 25 04 00169 ASCII = <4>\%r12\ : 

08 Bo tee P.ABZ: .BY : 

Ss HNrmes S&S at eASCII <4>\Rr13\ : 

08 00174 P.ACA: .BYTE : 

34 31 72 25 O04 00175 ASCII <4>\Rr14\ : 

Be 0017A P.ACB: .BYTE : 

35 31 72 25 04 00178 eASCII <4>\%r15\ $ 

8 B08 P.ACC: . r 

70 61 25 0181 ASCII <3>\%ap\ 3 

88 00185 P.ACD: . 3 

70 66 25 gt ASCII <3>\Rfp\ : 

0 018A P.ACE BYTE 3 

70 73 25 0 0188 ASCII <3>\%sp\ 3 

8 O18F P.ACF: .BYTE 3 

63 70 25 0190 ASCII §<3>\Epc\ 3 

8 BI3 P.ACG: .BY : 

6C 73 70 25 04 195 ASCII <4>\%psl\ 3 

4 Bion P.ACH: .BYTE F 

43 45 44 25 4 198 eASCII <4>\RDEC\ 3 

5 1A0 P.ACI: .BYTE 5 3 

58 45 48 25 04 1A1 eASCII <4>\2HEX\ 3 

6 1% P.ACJ: .BYTE F 

54 43 4F 25 04 1A eASCII <4>\Z0CT\ 3 

7 1AC P.ACK BYTE 3 

4E 49 42 25 04 1A ASCII <4>\2BIN\ 5 

7 1B2 P.ACL BYTE ; 

43 4F 4C 52 55 43 25 1B eASCII <7>\2CURLOC\ 3 

: 1BB P.ACM: .BYTE 3 

4C 41 56 52 55 43 25 18C eASCII <7>\ZCURVAL\ 3 

104 P.ACN BYTE 3 

43 4F 4C 56 45 52 50 25 1¢5 eASCI] <8>\ZPREVLOC\ $ 

1CE P.ACO: .BYTE 3 

43 4F 4C 54 58 45 4E 25 1CF eASCII <B8>\2NEXTLOC\ 5 
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v04=000 1eree= 1 bbe 95:19:43 | HONG Bhi sseeeancel os5. 1 9°17) 
0002 00538 «WORD : | 
00 00 9 § 053A -BYTE § 0, 0, 0 ; | 
1 005 : “ASCII <f>\S\ : 
006000 ; 54 LONG é : 
00000483 000004A 544 P.AEE: LONG 1193, 1203 : 
01 90 54C P.AEI: BYTE 0, 1 : 
00 Oo4E SWORD 18 : 
00 00 90 00 0055 .BYTE 0, 0, 0, 0 : 
4F 54 02 00554 SASCII <2>\fO\ : 
0557 “BLKB) 1 
00000001 00558 ‘LONG 1 : 
0090049 0095¢ P.AEH: .LONG 1225 : 
01 60 00560 P.AEK: :BYTE 0, 1 : 
000E 90362 “WORD 14 : 
00 00 00 00 00564 BYTE 0, 0, 0, 0 F 
59 42 02 00568 “ASCII <2>\BY\ ; 
01 00 00568 P.AEL: BYTE 0, 1 : 
0005 0056p SWORD 5 F 
00 00 00 00 0056 -BYTE 0, 0, 0, 0 ; 
4F 44 02 00573 “ASCII <8>\60\ : 
00576 “BLKB 2 
00000002 00578 LONG 2 : 
000004E8 000004DD 0057C P.AEJ: <LONG 1245, 1256 : 
00 00 00584 P.AEN: BYTE 0, 0 : 
0001 00586 “WORD 1 : 
00 00 00 00 00588 ‘BYTE 0, 0, 0, 0 ; 
2¢ 01 0058¢ “ASCII <f>\i\ : 
00 00 O058E P.AEO: <BYTE 0, 0 F 
000A 00590 SWORD 16 : 
00 00 90 00 00592 BYTE 0, 0, 0, 0 : 
E 01 00596 “ASCII <1>\3\ : 
00000002 00598 “LONG 2 ; 
00000508 00000501 0059C P.AEM: <LONG 1281, 1291 : 
0001 005a6 WORD 1 : 
00 00 00 00 005a8 -BYTE 0, 0, 0, 0 : 
2¢ 01 005aC ASCII <i>\i\ : 
01 00 OOSAE P.AER: .BYTE 0, 1 ; 
0008 0058 “WORD ‘ ; 
00 00 00 00582 “BYTE 0, 0. 0 ; 
5D 01 00586 ASCII <f>\5\ ; 
00 00 00588 P.AES: .BYTE 0, 0 ; 
00 00 00°00 opebe BYTE iy 0, 0, 0 
9 9? 89 008¢9 “ASCII = <é>\2.\ : 
05¢ -BLKB) 1 
90000093 05¢4 -LONG 3 
00000535 00000528 90000 1 09¢8 P.AEP: .LONG 1313, 1323, 1333 
000003FD 000003ED 00504 TERM_POINTER_TBL: 
O# 0050C Lone 4 $3. ee 
0000043D 00000425 000004» Oded “LONG 9 at, 1061, 1085 ; 
00000489 000004 » 3F4 “LONG ° i . 1161 ; 
000004F9 00000409 000004c1 o00004A5 606 -LONG AL , 1217, 1241, 1273 ; 
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CAL. 
PASCAL. “SUBSCR™ TERM_ TBL= 


ATL 
PASCAL_PRID_TABLE= P.ATP 
PASCAL ~FUNCTION_TABLE= ; 


T 
PASCAL _NUMBER TABLE=P. AGK 
PASCAL_PRIMARY_TABLE= 


PASCAL_TABLES= P.ATV 
PLI_CHARTBL= ATW 
PLI-IDENT_OPTBL= P.ATX 
PLI-OPCHAR_OPTBL= P. ary 
Lt ARRON TOKEN= 
LI-SUBSCR_TERM_TBL=P. “AUY 
PLITPRID TABLE= 
PLIFUNCTION. TABLE= P.AVE 
PLI-NUMBER_ TABLE= . 
PLI-PRIMARY_TABLE= P.AVG 
PLI-TABLES= . 
RPG" CHARTBL= P.AVI 
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RPGS IDENT OPT OKE See 


RPG_NUMBER TABLE= P.AVF 
RPG_ “PRIMARY. TABLE= oe 
RPG_TABLE 


DBGSEVAL “ADDR OPERATOR 
DBGSEVAL LA LANG” OPERATOR 


DBGSGET_TEMPMEM 
TRN DBGSHASA_FIND, DBGSHASH_F IND_SETUP 
eEXTRN OBCSPERFORA TYPEID_CHECR 
-EXTRN DBGSMAKE SKELETON _BESC 
DBGSMAP_BTYPE CLASS 
-EXTRN DBGSNCOB_PATHBDESC TO_CS 
Bathe DBGSNCOPY HBESe forc DBGSREWL INE 


N 
N 
XTRN G 
1 - BGSEVAL_A 
N 


RN DB 
-EXTRN DBGSPRIA_T 
~EXTRN OBCSPRINT. BBGSPRINT set LANGUAGE 
BG$ TSYMBOL 


DBGSGL BEV et 6p 
EXTRN DBGSGL~CURRENT PaInAaY 
XTRN DBGS$GB~ 


-EXTRN DBGS$GB-MOD_PTR D+ ees ~ORIG_COMMAND _PTR 
-EXTRN DBGSGL_RECCMP 

-EXTRN DBGSGB-SET_B REAK K FLAG 

-EXTRN DBGSGL ~OPCRSE COMMAND _PTR 
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.PSECT DBGSCODE,NOWRT, SHR, PIC,O 
0000 00000 AAA_DUMMY: 
-WORD Save nothing 3 3359 
0% 00002 RET * 3397 


; Routine Size: 3 bytes, Routine Base: DBGSCODE + 0000 


eo 
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i GLOBAL ROUTINE DBGSADDR_EXP_INTCINPUT_DESC, ADDR_EXP_ PTR, TYPE, LENGTH, 
i 


eo 


SoSSesesss 


RADIX, TERM_INDEX) = 


] 
FUNCTION 
This is the Address Expression Interpreter for most languages 
supported by DEBUG. It parses and evaluates a aoe Ke ress 


TYPE - If the address Supression yields an instruction address, the 
value DBGSK_INSTRUCTION is returned to TYPE. Otherwise, the 
value DBGSK_NOTYPE is returned to TYPE. 


LENGTH = If the value DBGSK_INSTRUCTION is returned to TYPE, the 
length in bytes of the instruction pointes to by the address 
s returned to LENGTH. 


The value STS$K_SUCCESS is return as the routine result if the expres= 


WANA NAAAANW 


ret ehet 


expression therwise, 0 is returned. 


sion was terminated by a carriage-return character. If 


3 1 $ 
3 1 $ 
3 1! : 
; 1! 3 
; 1! 3 
; 7! 3 
3; 3288 4 1! expression and returns an Address Expression Descriptor which 3 
: 3289 405 1! represents the value of the expression. This routine itself is $ 
; 3290 4 1! only a set-up routine which sets up the character pointer and : 
3; 3291 re ;! the expression radix to use and then calls DBGSEXPRESSION_PARSER F 
3 4 a es to do the actual work. PF 
4 9 409 1! Ps 
> 3294 410 1 ! INPUTS 3 
3; 3295 411 1! INPUT_DESC = A string descriptor which points to the input string to be : 
: 3296 216 1! parsed as an Address Expression. Only the pointer field of : 
$ 344 153 1! this cosee pees is actually used--the string is expected to $ 
3 38 re : terminated by a carriage-return character. : 
3 $06 ti8 1 3 ADDR_EXP_PTR = The address of a lLongword location to receive a pointer 3 
3 $55 ht : : to a Primary or Value Descriptor returned by this routine. : 
; 3308 19 1! TYPE - The address of a longword location to receive the address : 
3 soe ? y : } type’, namely instruction or not instruction. F 
; 3300 4 ¢ 1! LENGTH = The address of a Lonquor¢ location to receive the length of : 
3 3308 ; ? : the current instruction if the ‘'type’’ is instruction. 3 
3; 3309 425 1! RADIX = The radix to be used to kogerpres stoner numbers. The al- F 
; 3310 t$8 7! lowed radix values are DBGSK_DECIMAL, DBGSK_HEX, DBGSK_OCTAL, : 
; 331 : i ' } and DBGSK_BINARY. 3 
3 318 439 1! TERM_INDEX = A “‘terminator index’ which indicates which lexical tokens | 3 
3 se 430 1! are allowed as operosesen terminators in this context. for 3 
; 3315 nt 17 example, in the EXAMINE command, *’,'' and "':"' are allowed ; 
3; 3316 4 g 1! terminators and in the DEPOSIT command, ‘'="" is the allowed FH 
3; 3317 433 1! terminator. These index values have names of the form $ 
3; 3318 434 1! TOKENSK_TERM_xxx. 3 
3; 3319 435 1! 3 
: 3320 436 1 ! OUTPUTS 3 
3; 3321 437 1! INPUT_DESC = The input string descriptor is updated to point to the 3 
3 ; $g 438 1! first character after the address expression just parsed. 3 
; 439 1! If the parse was stopped by a terminator token, the input 3 
; : rr ; : string descriptor will point to that token on return. 3 
3 6 rr es ADDR_EXP_PTR = A Primary or Value Descriptor is constructed and a : 
: 3327 445 1! pointer to that descriptor is returned to ADDR_EXP_PTR. : 
3; 3328 444 : 3 
: 1: ; 
; 1} 
; 1! 3 
; 1/ ; 
; 1} ‘ 
; 1 
; 1; : 
; 1 : 
3 1} : 
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: 3339 } was terminated ~~ other way (i.e., by a terminator token), | 
; ? : the value STSSK_WARNING is returned. : 
: 3808 BEGIN 
Py & $ 
: 5 MAP 3 
3 : INPUT_DESC: REF BLOCKE ertg3. ' Pointer to input string descriptor : 
3 ADDR_EXP_PTR: REF VECTORC1), ! Longword to receive address of a : 
3 8 ‘ Primary or Value Descriptor 3 
: 9 TYPE: REF yecronnae ! Longword to receive type code value | 
3 $f LENGTH: REF VECTORLI); i Longword to receive length value 
3308 
3 54 ! Set up CHARPTR to point to the start of the expression string. Also set ‘ 
13 2 up the radix we are to use in the scan and initialize some variables. : 
: 3357 CHARPTR = ,INPUT_DESCCDSCSA_POINTER); : 
3; 3358 EXPRESSION_RADIX = .RADIX; 3 
3 3359 SAVED_TOKEN = 0; : 
> 3361 ; 
3 i : Set the address “‘type’’ and ‘‘length’’ to indicate ‘'no type’. These values 3 
3; 336 ! may be changed to ‘instruction’ if the Expression Parser finds that the i 
3; 3364 ' address expression points to an instruction address. (This allows DEBUG : 
; $0? to automatically display instruction locations as instructions.) : 
: 3367 ADDRESS_TYPE = DBGSK_NOTYPE; ; 
3 308 ADDRESS_LENGTH = 0; | : 
; 3370 | ; 
: 3371 ' Call the Expression Parser to parse the address expression. Then fix up 3 
3 376 ! the string descriptor to reflect the new location of the parse pointer, 3 
3; 337 ' return the address type and length values, and return the appropriate : 
3 375 status code. , 
: 3376 ADDR_EXP_PTRLO] = DBGSEXPRESSION. PARSER(TRUE, | ; 
3; 3377 . TERA_POINTER_TBLC.TERM_INDEX] + TABLEBASE); ‘ 
3; 3378 INPUT_DESCCDSCSW_LENGTH] = . INPUT DESCCDSCS$W_LENGTH] + F 
3; 3379 - INPUT_DESCCOSCSA_POINTER] - .CHARPTR; ‘ 
: 3380 INPUT_DESCCDSCSA_POINTER] = .CHARPTR; F 
: 3381 rypet) = .ADDRESS_TYPE; : 
3 ag LENGTHLO) = .ADDRESS_LENGTH; F 
; 338 IF .CHARPTRCO) NEQ CAR_RET THEN RETURN STSSK_WARNING; 
: $e RETURN STS$K_SUCCESS; i 
; 3386 END; 
000c 000 -ENTRY DBGSADDR_EXP_INT, Save R2,R3 ; 3398 
: 00000000° EF 9€& 0000 MOVAB CHARPTR, R3 : 
4 Ac DO 0000 MOVL INPUT DESC R2 : 3473 
6 4 A2 00 0000D MOVL 4(R2)7 CHARPTR ; 
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040¢ 3 14 AC 00 0001 MOVL RADIX, EXPRESSION_RADIX : 3474. 
04g cs 4 O17 CLRL_ SAVED TOKEN + 3475, 
F4 OAS F 9A 0001 MOVZBL #1 ADDRESS TYPE : 3483) 
50 ortbuerte $4 S885, «Rat: SEB BAMRS is 
0 00000000'°EF4 MOVL _—«* TERM =lneX, TBLCROJ, RO ; | 
itdiitd "EFAO oF 09 F ume | TABLEBA SECROI 3 3492 | 
0000v CF p FB 00 § CALLS a. 2 DBGSEXPRESSION_ PARSER : 
0 C g 003D MOVL DR_EXP_PTR ~ : 
1 62 3¢ 00041 MOVZWL fRd)° AR : 3495. 
1 04 Ae C O44 ADDL2 4(R25, R1 : 
0 63 D 48 MOVL.  CHARPTR, RO 3 | 
62 51 50 a3 00048 SUBW3 «RO, R1, (R2) : 
04 A2 50 DO 0004F MOVL RO ) + 3496. 
0c BC F4 a3 D0 90053 MOVL ADDRESS_TYPE, aTYPE : 3497 
10 BC FO =A3 DO 0005 MOVL ADDRESS S=LENGN, SL ENGTH : 3498 
0D 60 91 0005D CMPB Ss (RO : 3499) 
04 if 00060 BNEQ : | 
50 01 D 0006¢ MOVL 1, RO + 3500) 
04 0006 RET : 
50 D4 00066 1$: CLRL — RO ; 3502 | 
04 00068 RET e 


z; Routine Size: 105 bytes, Routine Base: DBGSCODE + 0003 


4 
4 
‘ 
4 
‘ 
4 
4 
‘ 
4 
4 
‘ 
4 
‘ 
‘ 
4 
4 
‘ 
t 
‘ 
t 
‘ 
t 
‘ 
‘ 
4 
4 
4 
4 
« 
tI] 
4 
t 
‘ 
4 
4 
4 
« 
4 
‘ 
4 
‘ 
e 
« 
| 
« 
« 
« 
e 
‘ 
4 
« 
e 
‘ 
tI] 
« 
t 
‘ 
tT] 
« 
e 
‘ 
e 
. 
e 
. 
e 
‘ 
t 
« 
tI] 
‘ 
« 
‘ 
e 
4 
t ] 
« 
t 
‘ 
4 
‘ 
| 
‘ 
| 
‘ 
4 
‘ 
4 
4 
4 
‘ 
4 
4 
4 
‘ 
4 


m 7? 
GPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 
yOeL 000 13-808-1 382 95:19:33 DEBUG. SRCIDBGPANSER. 639; 1 
GLOBAL ROUTINE DBGSBUILD_PRIMARY_SUBNODE(PRIMPTR, KIND, SYMID 
FCODE, fYPEID, DSTPTR): NOVALUE = 


] 
FUNCTION 
This routine constructs a Primary Descriptor Sub-Node for a specified 
symbol and apeqnes this sub-node to a specified Primary Descriptor. 
If the symbol is an array or a record, an Array or Record Sub-Node is 
constructed and the specific information needed for those data types 
is filled in. Otherwise, a Normal Sub-Node is constructed. 


INPUTS 
PRIMPTR = A pointer to the Root Node of the Primary Descriptor to 
which the Sub-Node should be appended. 


KIND - The KIND of the symbol for which the Primary Descriptor 
Sub-Node should be constructed. This is the RST ‘kind’ 
returned by DBGSSTA_GETSYMBOL. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

: SYMID = The SYMID of the symbol for which the Primary Descriptor 

‘ Sub-Node should be constructed. If there is no SYMID (as 

‘ for an individual array element, for exmple), SYMID should 
: be zero. 

: FCODE = The FCODE (‘format code’) for the data type of the symbol for 
4 which the Primary Descriptor Sub-Node should be constructed. 
! If the symbol is not a data items (i.e., if its KIND is not 
} RSTSK_DATA or RSTSK_TYPCOMP), FCODE should be zero. 
' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


TYPEID = The Type ID of the data item for which the Primary Descriptor 
Sub-Node should be constructed. If the entity in question is 
not a data item, TYPEID should be zero. 


DSTPTR = A pointer to the DST record corresponding the the data item. 
This is used in the case of BLISS data to obtain the 
information about what kind of BLISS structure this is. 
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OUTPUTS 
A Primary Descriptor Sub-Node is created and appended to the PRIMPTR 

4 or ere Descriptor. PRIMPTR itself is not changed, however. 
: There is no other output. 
4 
2 BEGIN 
4 MAP 
4 DSTPTR: REF DSTSRECORD ! Pointer to DST record 
4 PRIMPTR: REF DBGSPRIMARY, i Pointer to Primary Descriptor 
; SYMID: REF RSTSENTRY; ! Pointer to symbol*s RST entry 
5 BUILTIN 
3 INSQUE ; ! Insert-Queue function 
5 LITERAL : 
2 MAX_DIMS = 20; ! Maximum dimension count we allow 
5 LOCAL 
5 ATOMIC_TYPE, ! A dtype code 
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445 BIT_LENGTH, Array element bit length 


1 
1 
; 560 : 
3 344 561 BITSIZE, ! Array or record component bit-size 
3 344 206 ! (not actually used) 
> 3448 6 BOUNDVEC: REF VECTORE,LONGJ, ! Pointer to bounds vector in array 
3 3449 202 : escriptor 
3; 3450 65 CELLTYPE, ! TYPEID for array element cell type 
3; 3451 208 COMP_V ' Record Component vector (not used) 
: ade 56 DIMVECPTR: REF VECTORC,LONG], | Pointer to vector of subscript TYPEIDs 
3; 345 568 DSCADDR: REF BLOCKL,BYTE), ' Pointer to array descriptor 
3: 3454 569 HIGHPTR, ! Higher bound of the subrange value 
3; 3455 570 LENGTH, ! Byte length of array element | 
; £28 571 LOWPTR, ! Lower bound of the subrange value 
3; 345 276 NCOMPS, ! Number of record components (not used) 
3; 3458 57 NDIMS ! Number of array dimensions 
; 3459 574 NODEPTR: REF DBGSPRIM_NODE, ! Pointer to created Primary Sub-Node 
: 3460 575 OFFSET, ! Computed offset for ARRAYLO,0,...,0] 
; 3461 576 SIZE, ! Size in bits of the data type 
3 346 577 STRIDE: VECTORCMAX_DIMS, LONG], ! Vector of strides computed from 
; 346 578 ! multipliers in array descriptor 
3: 3464 579 STRIDEPTR: REF VECTORC,LONG],  ! Pointer to stride or multiplier 
: 3465 3580 ! vector in orrey descriptor 
: 3466 $26) STRIDE_SIZE, ! Size of stride for BLISS vectors 
3: 3467 286 SUB_TYPEID: REF RSTSENTRY, ! Pointer to TYPEID RST entry 
; 3468 328 SUBVECTOR: ! Pointer to subscript block=vector | 
3 3469 584 § REF DBGSPRIM_NODE_SUBS, ! in Primary Descr Array Sub-Node | 
3; 3470 $267 TMP_SYMID: REF RSTSENTRY; ' Scratch SYMID 
ER BBE ve 
3; 3473 3588 2 COMPUTE_STRIDES; 
7 
3 $059 $293 DBGSGL_CURRENT_PRIMARY = .PRIMPTR; 
; 3478 3395 ! Determine what kind of syabet this is and allocate the Sub-Node memory 
3; 3479 3594 ! block accordingly. If this symbol is an array or a record, we also must 
3; 3480 3595 2 ' collect the special information needed for those data types and fill it 
3 net $298 § into the Primary Descriptor Sub-Node. 
: 3083 3598 2 CASE .FCODE FROM RSTSK_TYPE_MINIMUM TO RSTSK_TYPE_MAXIMUM OF 
3 3484 3599 SET 
. na 
3 3487 3602 ! Handle arrays. Determine the number of dimensions in the array and 
> 3488 603 § ! allocate an Array Sub-Node large enough to hold that many dimensions. 
3 mt ope Then fill in all the fields specific to the Array Sub-Node. 
3 3491 606 CRST$K_TYPE_ARRAY): 
3: 349 607 BEGIN 
eo ge 
: 495 610 ' Get all needed type information about the array type from 
3 3496 611 ! DBGSSTA_TYP_ARRAY. Allocate a mqnory block for the Array 
3 3497 ol¢ ' Sub-Node and fill in the fields in the fixed part of that 
: res | ol? Sub-Node. 
3; 3500 e12 DBGS$STA_TYP_ARRAY(.TYPEID, DSCADDR, C 


LLTY 
IMS, 


ELLTYPE 
ND DIMVECPTR, BITSIZE); 
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AL 
DESC: VECTORC3) 
RSTPTR: REF RSTSENTRY, 
VALUE_KIND; 
RSTPTR = SY 


0 17 
$8 61 
$08 $19 ! If we got a symid passed in to this routine, and the symid 
505 620 ! represents an array, try calling SYMVALUE to get an array 
208 621 ! descriptor for this array. If we get one, then use this 
rata ? ¢ : descriptor instead of the one we got back from STA_TYP_ARRAY. 
509 624 ! Note - normally, these 2 descriptors will be the same. 
510 625 ' However, for dynamic arrays in PASCAL, the runtime descriptor 
511 6 § ! (which we get back when we call SYMVALUE with the symid) is 
5 § 6 ' correct, but the compile-time descriptor (which is part of 
2 628 ! the typespec) is wrong. This code is a workaround for this 
4 r 4 problem in the PASCAL DST. 

631 IF .SYMID NEQ 0 

6 ; THEN 

634 LOCAL 

635 

636 

637 

638 

639 

640 


ND 

“SYMID; 

WHILE RSTPTRERSTSB KIND] NEQ RST$K_MODULE DO 
RSTPTR = .RSTPTRLRSTS EP 


e. | -UPSCOPEBTRI: 
IF RSTPTRERSTSB_LANGUAGE EQL DBG$K_PASCAL 


wn 


BEGIN 
DBGSSTA_SETCONTEXT(.SYMID); 
DBGSSTA_SYMVALUE(.SYMID, DESC, VALUE_KIND); 
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; 646 IF .VALOE_KIND EQL DBG$K_VAL_DESCR 
3647 THEN 
3 3648 DSCADDR = .DESCCO]; 
3 3649 ND; 
; $020 END; 
5652 IF .NDIMS GTR MAX_DIMS THEN SIGNAL(DBG$_TOOMANDIM); 
365 NODEPTR = DBGSGET_TEMPMEM(DBGSK_PRIM_SIZE_ ARRAY + 
39 3654 ~NDIMS*DBGSK_PRIM_SIZE_SUBS); 
40 655 NODEPTRCDBG$B_PNARR_DIMCNT] = .NDIMS; 
a3 689 
208 658 !eee The following is_a temporary workaround to a problem in 
544 659 'eee the PASCAL DST: They are giving us array descriptors with 
545 660 !e#* class UBA but dtype=0. Since dtype must be VU for this 
248 rod ‘om class, we fill in the correct dtype here in this case. 
238 ees if -DSCADDRCDSCS$B_CLASS) EQL DSCSK_CLASS_UBA 
320 665 NODEPTRCDBGS$B_PNARR_DTYPE] = DSCSK_DTYPE_VU 
226 $ ELSE 
237 O68 !eee End temporary workaround. 
322 4 NODEPTRCDBGS$B_PNARR_DTYPE] = .DSCADDRCDSCS$B_DTYPE); 
225 ie NODEPTRCDBG$W_PNARR_LENGTH] = .DOSCADDRCDSC$W_LENGTH); 
558 7 NODEPTRCDBG$B_PNARR_SCALE] = .DSCADDRCDSC$B_SCALE); 
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59 NODEPTR DBGSB_PNARR DIGITS} = -DSCADDREDSC$B_DIGITS; 
NODEPTREDBGS$V_PNARR-COLUMN] = .DSCADDRLDSCSV—FL_COLUMN); 
NODEPTRLDBGSL-PNARR-CELLTYPE] = .CELLTYPE; 


! Set up pointers to the stride (or multiplier) vector and to the 
bounds vector in the array descriptor. 


STRIDEPTR = .DSCADDR + 20; 
BOUNDVEC = .STRIDEPTR + 4*.NDIMS; 


PAEAAAAGOAAO 


! Determine what kind of array descriptor we have. Determine 
! whether we have multipliers or strides and whether we are 
} doing byte or bit addressing. 


CASE. -DSCADDRLDSCSB_CLASS1 FROM DSCSK_CLASS_S TO DSC$K_CLASS_UBA OF 


! Handle an ordinary Array Descriptor. This descriptor has 

! byte multipliers. Since we only allow strides in the Array 

! Sub-Node, we convert the array multipliers into strides here. 
! (Note that STRIDEPTR points to multipliers in this case.) 


1 
' 
! 
' 
; 
CDSC$K_CLASS_AJ: 
COMPUTE STRIDES: BEGIN 


~ 


!een rouper ery workaround to a problem in the PL/I DST. 
‘eee The multipliers that we are getting in the array 
‘eee descriptors are not correct. vane are giving us 
‘ee strides instead of multipliers. So we skip the 
‘a computation of strides if language is PL/I. 


TMP_SYMID = .PRIMPTRCDBGSL_DHDR_SYMIDO]; 
IF TMP SYMID NEQ 0 


SSBLFALAV ES SANS ARAN SSHUR APIO 


~“ 
~ 


WANA AAAI 
wi 

ooo 

wn 


anN~N 
—ooO 
own 


AAA AAAI AAAI ANI AINIAI AAAI AANA WA AIAA AAAI 
SNA AAAAAAAAAO 
SOWOOOOOOOOOO® 
uw —COVDOnNous —Oo w 
PREPRESS EEE PN FESS SPE E EF PWN WII 


w 
SE 


BEGIN 
WHILE .TMP_SYMIDCRST$B_KIND 


i 


J] NEQ RST$K_MODULE DO 
1D = .TMP_SYMIDCRSTSL_UPSCOPEPTRI; 
IF (.TMP_SYMIDCRSTSB~LANGUAGE J EGL DBGSK_PLI5S AND 
(. THPSYMIDCRSTSV~OLDPLIFLAGJ) 


THEN 
LEAVE COMPUTE _STRIDES; 
END; 


PORIRO 2 3 


' Pick up the array element length in bytes. We need this 
Length to compute strides properly below. 


LENGTH = DBGSDATA_LENGTH(.DSCADDR); 
LENGTH = (.LENGTH + 7)/8; 


SSN NNN 
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! If this is a column-major order array, we compute the 
! array's stride values from its multiplier values. 


——_— 
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; 361 731 4 : 

3 ete 7 § 4 IF .DSCADDRCDSCS$V_FL_COLUMN] 

3019 fee THEN EGIN 

; 3620 735 ; STRIDECO] = .LENGTH; 

; 3621 7 6 INCR I FROM 1_TO .NOIMS = 1 DO 

: 36 ¢ f STRIDEC.1] = .STRIDEL.I = 1J]*.STRIDEPTRE.I = 1); 
mo ORR en 

: 36 74) 

; 36 $ re ! If this is a row-major order array, we compute the 

: 36 $ Se strides in the opposite direction. 

: ¥ 1 te é Lt cn 

3; 36 : 74 STRIDEL.NDIMS = 1] = .LENGTH; 

3; 3¢ 748 DECR I FROM .NDIMS - 2 if 0 60 

: 26 Q 4 H STRIDEC.1J = .STRIDEC.I + 1)]*.STRIDEPTRE.I + 1); 
: 36 6 21 4 END; 

; 3638 rag 4 

; 44 eee ? } Make STRIDEPTR point to the newly computed stride vector. 
3 3641 736 4 STRIDEPTR = STRIDECO); 

S 3608 738 oe. 

> 3664 759 

; 3645 760 ! Handle a Noncontiguous Array Descriptor or a Varying String 
> 3646 761 ! Descriptor. Here we olready have byte strides instead of 

s 36 : 1 ltipliers so there is nothing we need to do. 

: 3649 764 CDSCSK_CLASS_NCA 

; 3650 765 DSCSK~CLASS_VSAJ: 

3 82 706 0; 

3 365 768 

3: 3654 769 ' Handle an Unaligned Bit Array Descriptor. This descriptor 
3; 3655 770 ! is Like the Noncontiguous Array Descriptor except that it has 
: B36 aa bit strides instead of byte strides. 

> 3658 77 CDSC$K_CLASS_UBAJ: 

; 859 ae NODEPTREDBGSV PNARR_BITREF J = TRUE; 

: 3661 77 

3 B66 77 ' Any other case constitutes an invalid array descriptor. 

3 366 a : Signal an error message. 

; 3665 780 CINRANGE, OUTRANGE): 

s 200% z 1 SIGNAL (DBG$_INVARRDSC); 

3 , ; TES; 

: 3670 785 

3; 3671 7 ' Loop through the dimensions of the array to set up the subscript 
3; 3672 787 (3 ' plock-vector in the Array Sub-Node. In that vector, we set the 
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subscript value to be the same as the lower bound--this is changed 
} later when the actual subscript value is picked up. e lower and 
' upper bounds, the stride, and the subscript type TYPEID are ail 
: picked up and stored away as well. 
SUBVECTOR = NODEPTRCDBGSA_PNARR_SVECTOR]; 
OFFSET = 0; 
INCR I FROM O TO .NDIMS = 1 DO 
BEGIN 
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SUBVECTORE.1, DBGSL_PNSUB_SVALUE] = .BOUNDVECL * 13: 
SUBVECTORE.1. DBGSL-PNSUB-STRIDE) = .STRIDEPTRE.1J; 
SUBVECTORE.1. DBGSL~PNSUB-LBOUND] = -BOUNDVECE *.13; 
SUBVECTORL.1. DBGSL~PNSUB-UBOUND] = .BOUNDVECLe*.1 + 1); 


SUB_TYPEID = 0; 
If .DIMVECPTRL.1] NEQ 0 
THEN 


BEGIN 

SUB_TYPEID = .DIMVECPTRC.1]; 

WHICE .SUB_TYPEIDCRST$B_FCODE] EQL RST$K_TYPE_SUBRNG DO 
DBGSSTA_TYP_SUBRNG(~SUB_TYPEID,SUB_TYPEID;LOWPTR,HIGHPTR,SIZE); 


SUBVECTORL. 1, DBGSL_PNSUB_TYPEID] = .SUB_TYPEID; 
ELSE 
SUBVECTORL.1, DBGSL_PNSUB_TYPEID] = .DIMVECPTRE.1); 
OFFSET = .OFFSET - ( SUBVECTORE 1 DBGSL_PNSUB_STRIDEJ* 
“BOUNDVECL2*.1]); 


! One additional thing needs te, be done for arrays indexed 
' by enumeration types in ADA. ‘The SVALUE field needs 

! to be filled in to be the value of the enumeration, 

! not its position. 


' 
1 
' 
t 
t 
i DBGSGB_LANGUAGE EQL DBGSK_ADA 
IF |; SUB_TYPEID NEQ 0 
LF ;,SUB_TYPELDERSTSB_F CODE EQL RSTSK_TYPE_ENUM 
SUBVECTORC.1, DBG$L_PNSUB_SVALUE) = 


DBGSENUM VAL(.SOB_TYPEID, 
. SUBJECTORE.17 DBGS$L_PNSUB_SVALUE]); 


FF. 
HEN 


END; 
! Finally fill in the offset from the start of the array to 
: element ARRAY(O,0,....0). Also mark symbol as an aggregate. 


NODEPTRCDBGS$L_PNARR_OFFSET) = .OFFSET; 
If .DBG$GL_ARRSUB_FCAG 


N 
PRIMPTRCDBGS$V_DHDR_AGGR} = TRUE; 


<2 | 


ee ere RE ree 


DBGSW-PNREC-NCOMPS) = .NCOMPS; 


NODEPTR(DBGSW_PNREC_INDEX) 
NODEPTR 
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; 37 5 

3 f ; *$ END; ! End of case for Array Sub-Node 

: 37 

3; 37 5 ! Handle records. Allocate a Record Sub-Node. Then simply initialize 

: 3735 ? ! th record component index to be 1. If dot-qualification follows, 

- a, ! this field will be changed to the sctual component index of the 

3 4 § ; selected record component. Also mark symbol as an aggregate. 

; 139 54 CRSTSK TYPE RECORD): 

: 741 2$ DBGSSTA_TYP_RECORD( .TYPEID aoe COMP_VEC, BITSIZE); 

: 376 f NODEPTR~= DBGSGET TEMPMER(SaG$k_PRIM_SIZE RECORD) ; 

3 ye = 

3: 37446 5 

3 om? Beo 4 pee GL_RECCMP_FCAG 

; 47 Bee PRIMPTRLDBGSV_DHDR_AGGR] = TRUE; 

: 88 B63 
: 3751 866 ! Handle Record Variants (as in PASCAL or ADA). Here we allocate 
3; 375 86 ' a Variant Sub-Node, but the fields specific to this sub-node are 
3 Le} ze8 : actually set by the caller (namely GET_RECORD_COMPONENT). 
> 3755 $90 CRSTSK_TYPE_VARIANT): 
; t af NOBEPTR™= DBGSGET_TEMPMEM(DBGSK_PRIM_SIZE_VARIANT); 
: 3758 87 
3; 3759 thy ! Handle BLISS data items. The four kinds of data that fall have this 
; 3760 75 : fcode are vectors, bitvectors, blocks, and blockvectors. For these 
3; 3761 a78 ! four types, we have to go to the DST to obtain the information 
3 re 1A } which is placed in the Primary Descriptor. 
: 3764 879 CRST$K_TYPE_BLIDATA): 
; 3765 880 BEGIN 
ie a2 
; 708 nit : Assume aggregate until proved otherwise. 
: 3770 885 PRIMPTR CDBGS$V_DHDR_AGGR] = TRUE; 
303 39 
; Ae 3 : Get the DST record if necessary. 
; 175 90 if .DSTPTR EQL 0 AND .SYMID NEQ 0 
: 377 9 DSTPTR = .SYMID CRSTSL_DSTPTRI; 
in 
: 3780 95 ' Check for the REF bit being set. If so, allocate a Primary 
; 3781 % i Descriptor Normal Sub-Node and set the FCODE to pointer to 
: ree 9 ! indicate that dereferencing is taking place. Also turn off 
: y 38 } the aggregate flag for REF items. 
: 3785 1 


Uf gDSTPTR COSTSV_BLI_REF] AND .SYMID NEQ 0 
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BEGIN 
5 NODEPTR = posecrt TEMPMEM (DBGSK_PRIM_SIZE_NORMAL); 
PRIMPTR coBG V_DHBR_AGGR] = FALSE; 
5 FCODE = RSTSK_TYPE_PTR; 
END 
308 
' If it is not a REF item, CASE on the kind of BLISS structure: 
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: Vector, Bitvector, Block, or Blockvector. 


I 
E .DSTPTR COSTSV_BLI_STRUC] FROM DSTSK_BLI_NOSTRUC 
SET TO DSTSK_BLI-BLKVEC OF 


! The ‘‘nostruc’’ code arises in the case where the structure of 
! the data is a user-defined structure, and not one of the 
four built-ins. We treat such data as an ordinary variable. 


{osT$x BLI_NOSTRUCI : 


SESS F ORCS SS LoSE AS SSSES 
Se yo Sa 


DOODOODODODOOO VOODOO ODOOODODOODDODOONOO 
Nabe h sh sh sl et et ot et ot ot ot alll or oo ot ot ot or ot ot nl ot ot ot ot ot ot ot or 


810 PRIMPTR CDBG$V_DHDR_AGGR) = FALSE; 
312 NODEPTR = DBGSGET_TEMPMEM (DBGSK_PRIM_SIZE_NORMAL); 
81 . 
814 
815 3 ! Handle vectors. We allocate enough space for an Array 
ai$ ; ! SubeNode with one subscript. The fields of the subnode 
aif ; are then filled in. 
819 34 CDST$K_BLI_VEC) : 
820 35 BEGIN 
821 36 FCODE = RSTSK_TYPE_ARRAY; 
8 § 37 NODEPTR = DBGSGET_TEMPMEM (DBGSK_PRIM_SIZE_ARRAY + 
8 38 BGSK_PRIA_SIZE_SusS); 
824 39 NODEPTR CDBG$B_PNARR_DIMCNT] = 1; 
5 940 NODEPTR COBGSW_PNARR_LENGTH] = .DSTPTRCDSTS$V_BLI_VEC_UNIT_SIZE); 
Bt . 
828 903 i Figure out the dtype based on the unit size and 
829 944 ! sign extension. 
Hy 366 és 
8 § si } VECTORCBYTE) or VECTORCBYTE SIGNED) 
; : 3) if gPSTPTRCOSTSV_BLI_VEC UNIT SIZE) EQL 1 
8 eh y -DSTPTRCDSTSV_BLI_VEC_SIGN_EXT] NEQ 0 
a3 $38 oe re COBGSB_PNARR_DTYPE] = DSCSK_DTYPE_B 
78] yee NODEPTR CDOBGSB_PNARR_DTYPE] = DSCSK_DTYPE_BU 
6 989 ' VECTORCWORD) or VECTORCWORD,SIGNED) 
84 958 ‘ 
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$68 ELSE IF .DSTPTRCOSTSV.BLI_VEC UNIT SIZE] EQL 2 
36 If .DSTPTRCDSTSV_BLI_VEC_SIGNEXT] NEQ 0 
368 NODEPTR CDBGSB_PNARR_DTYPE) = DSCSK_DTYPE_w 


ELS 
NODEPTR CDBGSB_PNARR_DTYPE)] = DSC$K_DTYPE_wu 


! VECTORCLONG) or VECTORCLONG,SIGNEDJ 
ELSE IF .OSTPTRCDST$V_BLI_VEC_UNIT_SIZEJ EQL 4 
If .OSTPTRCDSTSV_BLI_VEC_SIGN_EXT] NEQ 0 


ev gehOvePte COBGSB_PNARR_DTYPE] = DSCSK_DTYPE_L 
NODEPTR CDBGSB_PNARR_DTYPE] = DSC$K_DTYPE_LU 


VECTORCX] where X is not 1, 2, or 4 

ELSE 
IF .DSTPTRCDSTSV_BLI_VEC_SIGN_EXT] NEQ 0 
a8 NODEPTR COBGSB_PNARR_DTYPE] = DSCSK_DTYPE_V 

NODEPTR COBGS$B_PNARR_DTYPE] = DSCSK_DTYPE_VuU; 

! In this case the since the type has been set 
! to bitfield then multiply the Length by 8 to 
express it in bits. 


NODEPTRCDBG$W_PNARR_LENGTH] = 
. -NODEPTRCBBG$W_PNARR_LENGTH) * 8; 
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SUBVECTOR = NODEPTR CDBGSA_PNARR_SVECTOR]; 


The stride can be either 1, 2, or 4, depending on whether 
the vector was declared as a byte, word, or longword 


! 
i 
vector. We obtain this information from the DST. 
§ 


SSIES SESE NSRP AR Sea Oe 


000 
001 
400 UBVECTOR (CO, DBGSL_PNSUB_STRIDE] = 
400 -DSTPTR CoSTSV_BLI_VEC_UNIT_SIZE); 
2008 
£008 ! The upper bound on subscripts is one less than the | 
400 ' number of units that were allocated in the declaration 
89 $208 } of the vector. (Origin-0 subscripting) 
B34 4910 if gDsTPTR COSTSL_BLI_VEC_UNITS) EQL’0 
9 ret SUBVECTOR CO, DBGSL_PNSUB_UBOUND) = 0 
599 tore LSE 
900 4015 SUBVECTOR CO, DBGSL_PNSUB_UBOUND) = 
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DSTPTR COSTSL_BLI_VEC_UNITSI-1; 
401 , 
: 3803 O17 § END; for an 
3 401 4 allocate enough eetds of the 
; 308 : 19 ¢ ! Handle be see he. subscript. The fiel 
306 ; d i Subnode ere then filted in, 
; é i 
390 ole? ° 1_BITVEC) : 
; 3908 4024 & tosTsx iT - : RRAY + 
5 3208 4005 4 PEGE = RSTSK_TYPE_ARRAY GSK PRIM SIZE AR 
391) 1059 NODEPTR = Tee EMP MSRGAKCPRIA SITE SUBS): 
: 331 ‘9 5 flag. 
i é 6 Since this is a bitvector, set the BITREF flag 
; ! Sinc , 
; $18 iB ; NODEPTR [DBCSV PNARR BITREF) = TRUE; 
; 14 1038 weetere DBGEB_PNARR-DIMCNTJ DSCSk_DTYPE_vu; 
; 319 rt $ NODEPTR 4 4 Seni de ARR’ SVECTOR): 
: 3920 ‘ SUBVECTOR = NODEPTR CDBGSA. PN DET = 1; 
: 3921 403 SUBVECTOR COs DBGSL_PNSUB. STAI 
: 39 § 4038 ? han the 
; 39 9 is one less t ation 
: 39 5 ‘ato | ine weapee Seune that vere ltocateg in the declar 
; j $ i069 ~ go ee eee subscript ing 
; 39 404 [oes : TVEC_SIZEJ EQ. 0 
: 3955 6066 if .DSTPTR COSTSL_BLI_BITVEC. 
: 3929 4045 IF .DS UBOUND] = 0 
; THEN 0, DBGSL_PNSUB_ 
; i ie Pewee d) 
: 606 PNSUB UBOUND] = 
: 393 8 ; SE SUBVECTOR C0, DBGSL TVEC_SIZEJ-1; 
; 3 i830 3 sUOVEDSTPTR COSTSL GLI. BI 
; 39 405¢ 3 
: 39 tba6 END; Bree 
; 338 54 4 h space for an bnode 
; Ri 108s 4 ' Handle blocks. We ot hecete Soneg fields of the su 
; Bat 4056 4 i Sub-Node with one su 
3 39% 4057 4 | ore then tilled ta. 
5 39g 4058 4 ia 
: 3944 4060 Cost$x 8.1 eL0CK) ape «aes 
3 3945 HOR BLIBLK] = TRUE; 
i 3946 dee 3 ethos eet tee tee carech coeeta Pain SIZE QARRAY * 
ca does NODEPTR = DBGSGET. TERPRE G$k_PRIA_SIZE_ SUBS) ; 
: $949 106s PTR COBG$B_PNARR DIM A PNARR: SVECTOR): 
; pay does SUBVECTOR = NODEPTR CDBGSA, PNARR® 
: 6 ses 
; Mi 4068 ide and length as ee Se 
Ree 1070 ye pate examine, we are rep 
: $985 £070 i of aggrega 
; y 4072 
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3e8 4073 ! each element as a longword. If it turns out 
9 4074 ' we are not Coling eggregate eee then 
960 4075 i we fix up this information in the GET_BLISS_SUBSCRIPTS 
961 4 6 ' routine. 
3 rt éUBVECTOR CO, DBGSL_PNSUB_STRIDE] = 4 
s . 
964 407 NODEPTR paGée PNARR DIYPES = DSCSK_DTYPE_L; 
965 ret NODEPTR LOBGSW_PNARR_LENGTH] = 4; 
967 4083 
968 40 ! The upper bound on subscripts is one less than the 
9 4 ' number of units shot were as Lecoted in the declaration 
970 4085 ! of the vector. (Origin-0 subscript ao 
408 ! We temporarily — this up as if stride were 4, for 
res t4 } purposes of aggregate output. 
rts} at 3 SIZE = .DSTPTR COST$V_BLI_BLOCK_UNIT_SIZE); 


(.DSTPTR COSTSL BL} BLOCK UNITS EQC 0) OR 


? 3971 : 
3 976 $ 
3; 397 3 
Bs ; 
; 976 4091 ’ (.STRIDE_SIZE EGL 
: 3978 409 SUBVECTOR CO, DBGSL_PNSUB_UBOUND] = 0 : 
: 3980 2095 ELSE 
> 3981 409 SUBVECTOR CO, DBG$L_PNSUB_UBOUND] = : 
; 398 409 (.DSTPTR COST$L_BC1_BLOCK UNITSJ*.STRIDE_SIZE-1) 3 
3; 398 4098 /%; F 
3; 3984 4099 $ 
3; 3985 4100 4 END; 3 
Be nn 2 
; 3988 £108 & ! Handle blockvectors. We allocate enough space for an F 
; 3989 4104 4 ! Array Sub-Node with one subscript. The fields of the 3 
3 Boe rh} t4 ? subnode are then filled in. . 
F 99 4109 ‘ CDSTS$K BLI_BLEVEC] : : 
: 3994 4109 2 PRIMPTRLDBGS$V_DHDR_BLIBLK] = TRUE; : 
3; 3995 4110 FCODE = RST$K_TYPE ARRAY; 3 
3 3996 4111 : NODEPTR = DBGSGET_T MPMEM (DBGS$K_PRIM_SIZE_ARRAY + 3 
3; 3997 eti¢ * G$K_PRIA_SIZE_SuBS); 3 
; 3998 411 NODEPTR COBGSB_PNARR_DIMCNT) = 2; 3 
; 3999 4114 NODEPTR COBGSB_PNARR_DTYPE) = DSCSK_DTYPE_V; 3 
; 4000 4115 NODEPTR CDOBG$W_PNARR_ LENGTH) = : 3 
: 4001 2118 SUBVECTOR = NODEPTR [DBGSA_PNARR_SVECTOR); 3 
+. : 
: 46004 4119 ' The stride on the first subscript is the stride on : 
: 4005 4120 ! the second subscript times the number of units per 3 
3 ress) 4121 ' block. The upper bound on the first subscript 3 
$ rtst4 a § depends on the number of blocks in the blockvector. ; 
: 4009 4126 SUBVECTOR CO, DBGSL_PNSUB STRIDE) = : 
3; 4010 4125 -DSTPTR BST$B8_BL1_BLKVEC_UNIT sizes ® F 
3 4011 41 § -OSTPTR COSTSL-BLI-BLKVEC-UNITS); 3 
$ ret} 3 8 iV soorere COSTSL_BLI_BLKVEC_BCOCKS Ear O : 
: 4014 4129 SUBVECTOR CO, DBG$L_PNSUB_UBOUND) = 0 : 
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4015 

4 18 ELSE 

401 SUBVECTOR (0, ta mea UBOUND) = 

¢ + -DSTPTR COSTSC_BLI_BLKVEC_BLOCKSJ-1; 
4020 

4021 ! FILL in stride and Length as four (we are always 
rt ¢ } representing blocks as blocks of longwords). 

4024 SUBVECTOR (1, DBGSL_PNSUB_STRIDE = 4; 

4025 NODEPTR COBG$B_PNARR_DTYPE) = DSCSK_DTYPE_L;: 

rt § NODEPTR COBGSW_PNARR_LENGTH] = 4; 

4028 

4029 ! The upper bound on the subscript depends on the 
40 ' number of units per block. 

4031 ! We temporarily dummy this up as if stride were 4, for 
re 4 } purposes of aggregate output. 

40 STRIDE_SIZE = .DSTPTR CDST$B_BLI_GLKVEC_UNI)_SIZE); 
1038 IF (.OSTPTR COSTSL BL BLKVEC_UNITS) EQC 0) OR 

$038 (.STRIDE_SIZE EGL OF 

ret 34 

40 


SUBVECTOR C1, DBGSL_PNSUB_UBOUND] = 0 


, DBGS$L_PNSUB_UBOUND] = 
(.DSTPTR COSTSL_BCI_BLKVEC UNITSJ*.STRIDE_SIZE-1) 


PAPAIN BEE PEELE 


' For bitvectors, vectors, blocks, and blockvectors, and REF stuff, 
i make sure the celltype is filled in correctly. 


iF .FCODE EQL RSTSK_TYPE_ARRAY 
THEN 


COBG$B_PNARR_DTYPE); 
G$W_PNARR_CENGTH); 
TYPE AND 


$K"DTYPE 
SK"DTYPE"SV) AND 
$K"DTYPE~SVU) 
BIT_LENGTH = .BIT_LENGTH * 8; 


NODEPTR CDBGSL_PNARR_CELLTYPE) = 
DBGSTYPEID_FOR_ATOMIC(.ATOMIC_TYPE, .BIT_LENGTH, FALSE); 
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: 407 4187 IF .FCODE EQL RSTSK_TYPE_PTR : 
3 6o7 41 3 THEN - abt i 
: 46074 4) 4 BEGIN : 
3 4075 41 4 ATOMIC TYPE = DSC$K_DTYPE_L; 3 
3 407 4191 4 BIT_LENGTH = 32; : 
3 4077 4198 4 TYPEID = DBGSTYPEID_FOR_ATOMIC(.ATOMIC_TYPE, .BIT_LENGTH, FALSE); 3 
: 4079 4194 . ; 
. - 7 
> 408 419 : 
3; 408 £38 ' For all other cases, just allocate a Normal Sub-Node. Also | 
; tbee 1386 clear the aggregate flag. ; 
; 4086 4 01 CINRANGE . OUTRANGE): : 
> 4088 4508 NODEPTR = DBGSGET_TEMPMEM(DBGSK_PRIM_SIZE_NORMAL); | ; 
; £088 ‘ Of BRIMPTREDOGSV _DHOR_AGGR = FALSE; i 
: 4091 4206 . ; 
: 409 4 07 TES; : 
> 4094 4309 : 
: rt +44 ? 19 Fill in the standard fields common to all Primary Descriptor Sub-Nodes. : 
: 4097 e312 : NODEPTRCDBGS$B_PNODE_KIND] = .KIND; | : 
3 4098 421 NODEPTRCDBG$B_PNODE_FCODE] = .FCODE 3 
: 4099 4214 NODEPTREDBGS$L_PNODE-TYPEID] = .TYPEID; : 
: 4100 4g NODEPTRCDBGS$L_PNODE-SYMID] = .SYMID; : 
; $193 ‘319 NODEPTRCDBG$L-PNODE-RELOCJ = 0; : 
: 410 4218 : 
3 4104 4219 ! Also set the final Sub-Node's KIND, FCODE, and TYPEID in the Primary 3 
3; 4105 4220 ! Descriptor Root Node. The Root Node thus describes the object described 3 
: 2198 ? $3 by the Primary Symbol as a whole. ' 3 
> 4108 1558 PRIMPTRCDBGS$B_DHDR_KIND] = .KIND; ; 
: 4109 4226 PRIMPTRLDBG$B_DHDR-FCODE) = .FCODE; : 
: 4110 us PRIMPTRLDBGSL_DHDR-TYPEID) = .TYPEID; ; 
411 4207 i 
; t118 4228 ! Append the Sub-Node to the Primary Descriptor by Linking it in at the : 
: atte ? 5 ; end of the doubly Linked Sub-Node chain. Then return. : 
: 6116 4231 INSQUE (.NODEPTR, .PRIMPTRCDBGSL_PRIM_BLINK}); ; 
3 6117 4 3 RETURN; 3 
3; 4118 4 ; 3 
+ 4119 4234 1 END; : 
OFFC 00000 ENTRY DBGSBUILD PRIMARY _SUBNODE, Save R2,R3,R4,- ; 3503 i 
R5,R6,R7,RB,RI,RIORI1 : ‘ 
se FF74 CE 3 99002 movAB = 140 §p): s : i 
04 AC 00 000 MOVL  PRIMPTR, R : 3591. : 
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31 AX-11 Bliss-32 v4.0 Page 147 
ocange trim mind aman, a 
6744 9F PUSHAB (R7)CSUBVECTORI ; 
MOVL RO, a(SP)+ ; 
02 35 fi 298: AOBLSS i 1, 30$ ; 3795 
: 4 : | 
20 5 og 5 09 § : 38: BOVE Srser, 32(NODEPTR) ; 3841. 
43 000000006 F ; BLBC DGSGL_ARRSUB_FLAG, 35$ ; B42 
4 AE 99F 00272 328 PUSHAB BITSIZE ; 3856 
zc AE 9F 0027 PUSHAB COMP VEC ; | 
oR hae ME NS ta 
000000006 00 4 FB 09 3 CALLS #4, DBGSSTA_TYP_RECORD t wen 
000000006 90 i FB 00 87 CALLS “1, D DBGSGET_ TEMPMEM ; | 
i ea So ol 
12 000000006 00 £9 0029A BLBC DBGSGL -RECCHP, STAG. 35$ : $860, 
04 AB 01 8 002A1 33$ BISB2 Hl, 4 4(R8) i; 3862 
C 11 002A5 BRB 35 : 3598 
OA DD 00 A? 34$ PUSHL #10 ste : | 
000000006 90 Qi FB 00 a9 CALLS , » DBGSGET _TEMPME | 
0218 $1 00083 358: BRU Be ; eens | 
53 04 AB 3 00286 36$ MOVAB 4(R8), R3 : 
63 01 88 OO2BA BISB2 #1, (R3) Faced 
18 AC DS 90280 TSTL DSTPTR i | 
OE if 002c0 BNEQ 37 | 
0c AC D d02¢@ TSTL SYMID | 
09 13 O02c BEQL 37 S sa92 | 
50 0c AC 00 002C7 MOVL SYMID. ; 
18 AC 0¢ AO dO 002¢B MOVL  12(RO5, DSTPTR po 
52 18 AC DO 00200 37$:  MOVL  DSTPTR. | 
05 A2 95 002D4 TSTB = 55 (R2) | 
1A 18 00207 BGEQ = 38$ 2 | 
0c Ac D3 00209 TSTL  SYMID ; | 
0 Dd 909bE PUSKL #6. ; 3903 
6 PP 00 P5 CALLS #1, DBGSGET_TEMPMEM : 
000000006 00 g ET | 
33 81 BA OOSEA Bich #te tRSE 3904, 
10 Ac 19 D0 09 ED MOVL ig, FCODE : $900 
56 05 A2 03 60 EF $6 F3 38$: EXTZV #0, #3, $(R2), ; 3914, 
oore 000A ” 60 fp 398: COORD RG, 8, ° : 
sort _ 0122 00305 i38- 3S. : 
tae | 
“ ey eee ae £7 
1 F CALLS #1, DBGSGET_TEMPMEM : 
aes ne i i 1: wo wt : 3914 
10 ac 1 DO 00319 428:  MmOovL #1, FCODE : 3936 


18 $0 1984 02:1 AX-11 Bliss-32 v4.0-74 Page 148 
-Sep- :10: - Se -U=- age 

18-308 - 198 95:19:33 DEBUG. SRC IDBGPARSER -B3 31 9° 19) ve 
F DD 0031D PUSHL #15 : 3937 : 

000000006 Q o FB 1F CALLS #1, DBGSGET_TEMPMEM : ’ ; 
0 p $ MOVL RO. NODEPTR : ; 

1 18 «AS : MOVAB 24(NODEPTR), R1 : 3939 ; 

03 Al 01 3 D MOVB of : : 

50 OA A2 9 1 MOVAB 10(R2), RO + 3940 ; 

04 Q EF 5 EXTZV #0, #4. (RO), R3 : ; 

10 AS 80 A MOVW 3, 28(NODEPTR) : : 

04 0 F CMPZ7V #0. #4, (RO), #1 : 3949 : 

4 BNEQ 44 : | : 

FO OF 93 0034 BITB (RO), #240 + 3951 ; 

: 1 0 49 BEQL 43$ : ; 

02. Al 9 48 MOVE #6, 2(R1) + 3953 : 

4c 11 0034F BRB 1 : : 

02. Al 02 90 00351 438: MOVB #2, 2(R1) : 3955 F 

46 11 00 38 BRB 1 : 3951 ; 

04 0 : 0357 44$: CMPZV #0, #4, (RO), #2 : 3959) ; 

1 035¢ BNEQ : | ; 

FO. OF 6 93 00 3 BITB (RO), #240 : 3961) ; 

$ 13 0036 BEQL : | : 

02. Al : 90 0364 MOVE #7, 2¢R1) + 3963 : 

3 11 00368 BRB ; ; 

02. Al 03 90 0036A 45$:  MOVB #3, 2(R1) + 3965. : 

20 11 00 $ BRB + 3961) : 

04 ED 00370 46$: CMPZV #0, #4, (RO), #4 : 3969 3 

12 12 0037 BNEQ : | : 

FO. BF 60 93 00377 BITB (RO), #240 : 3971 : 

06 13 0037B BEQL : : 

02. «Al 08 90 00370 MOVE #8, 2(R1) : 3973, : 

1A 11 00381 BRB 3 : 

02. Al 04 90 00385 47$:  MOVB #4, 2(R1) : 3975) : 

14 11 00 8? BRB ; 3971 ; 

FOF 60 3 0389 48$ BITB (RO), #240 : 3981) : 

6 13 00380 BEQL 9 : : 

02. Al 1 90 00 8F MOVE #1, 2(R1) : 3983) ; 

4 11 00393 BE3 3 : 

02. «Al 2 90 00 95 49$:  MOVB #34, a(R) : 3985 | : 

1¢ AS AG 00399 SOS:  MULW2 #8, 28(NODEPTR) : 932 | : 

54 28 AS 9E 00390 51$:  MOVAB 40(R5), SUBVECTOR ; 3995 | : 

04 0 EF O0O3A1 EXTZV #9 #4. (RO), 4(SUBVECTOR) : 4003 : 

4 11 003A7 BRB 53$ : 4010. : 

10 ac 1 DO 003A9 52$:  MOVL #1, FCODE : 402 ; 

F DD 003AD PUSHL #15 > 4028 | : 

000000006 99 4? ‘ AF CALLS #1, DBGSGET_TEMPMEM : : 
0 p B6 MOVL RO, NODEPTR ; | : 

OA AS 4 0389 BISB2 #4. 10(NODEPTR) > 4034. : 

1A AS 00010138 F D BD MOVL #65826, 26 (NODEPTR) > 4036. : 

54 28 «#6AS OO C MOVAB 40(R5), SUBVECTOR : 4038 | : 

04 Ab 01 »D 9 MOVL #1, 4(§UBVECTOR) : 4039 : 

06 Ae p ¢ 53$: ste 6(R2) > 4046. : 

Ps | 3 

06 A2 3 C D SUBL3 #1, 6(R2), 12(SUBVECTOR) > 4052 : 

43 11 0030 BRB 57§ > 3914) : 

63 1 a8 DA 54$: BISB2 #16, (R3) > 4063 | : 

10 ac D D MOVL #1, FCODE + 4064 | : 

F DD 00361 PUSHL #15 > 4065 : 

000000006 00 1 FB O03E3 CALLS #1, DBGSGET_TEMPMEM : | : 


mae 9 | 

ARSER 1b-se -1984 02:10: AX-11 Bliss-32 V4.0-74 Page 149 D 
tl 1 =3007 138% 95:19:13 DEBUG. SRC Seceansén.o$3s1 9°19). ve 
5 5 EA MOVL R DEPTR : : 

32 28 OA M4 ED MOVAB Bens SUBVECTOR ; 406 ; 

04 AG 40 Fl MOVL #4, 4($uB ECTOR) : 4078 : 

A AS 00060108 8F D F OVE 436240 , 26 (NODEPTR) : 4079 | ; 

50 OA A2 04 EF FD EXTZ2v #0, #4, 10(R2), STRIDE_SIZE + 4089 ; 
06 A p i TSTL (R2) : 4090. ; 

9 4 BEQL 5$ : : 

9 D5 004 TSTL TRIDE_SIZE : 4091 | : 

05 12 0040 BNEG $ ; ; 

0c as ps 4 C 55$: CLRL i (SUBVECTOR) : — : 

51 06 A2 30 3 ai) 56$: MULLS STRIDE SIZE, 6(R2), R1 : 4097 | : 

OC AG 51 04 (7 418 DIVL3 #4, R1, 12(SUBVECTOR) + 4098 ; 
63 11 00410 578: BRB : 3914 : 

63 10 88 0041F 58$: BISB2 #16, (R3) : 4109 : 

10 AC 01 DO 00422 MOVL #1, FCODE + 4110 : 

1% D0 00496 PUSHL # 5 4111 : 

000000006 00 gi FB 04 CALLS #1, DBGSGET_TEMPMEM : : 

55 0 DO 0042F MOVL RO DEP : : 

1A AS 00200201 «BF =O 00432 MOVL #209766 26(NODEPTR) : 4114 : 

54 38 AS 9E 0043A MOVAB 40(R5), SUBVECTOR + 4116 : 

51 E A2 9A 004 OV ZBL 19 (Re) : 4126) 3 

04 AG 51 OA A2 C5 0044 MULL 10(R2), R1, 4(SUBVECTOR) : | : 
06 A2 D5 0044 TSTL 6(R2) : 4127 3 

05 12 00448 BNEG  59$ : | : 

OC AS D4 00440 CLAL 12 (SUBVECTOR) t 4129) : 

06 11 9490 BRB 60$ ; : 

OC AG 06 A2 1 €3 00452 59$:  SUBL3 #1, 6(R2), 12(SUBVECTOR) + 4133 : 
18 AG 04 00 00458 60$:  MOVL #4. 24(SUBVECTOR) : 4139 : 

1A.soAS 08 90 0945¢ MOVB #8, 26(NODEPTR) + 4140 : 

1c) AS 04 g0 0460 MOVW #4. 28(NODEPTR) + 4141 : 

50 OE A2 9A 00464 MOVZBL 14(R2), STRIDE_SIZE + 4149 : 

OA A2 D5 00468 TSTL 10(R2) : 4150 : 

4 13 00468 BEQL 61$ : 3 

0 05 00460 TSTL § STRIDE_SIZE + 4151 : 

05 12 O46F BNEG  62$ : ; 

20 A&G 04 00471 61$:  CLRL 32¢(SUBVECTOR) + 4153 : 

C 11 00474 BRB 63$ : | : 

52 OA A2 0 C5 00476 62$:  MULL3 STRIDE_SIZE, 10(R2), R2 + 4157 | : 

52 D7? 004 DECL. R2 : : 

20 AG 52 04 C7 0047D DIVL3 #4, R2, 32(SUBVECTOR) : 4158. : 
01 10 AC b} abe 2 63$: cHPL ECODE, # : 4170 | : 

52 1A ae 9A 004 MOVZBL 2é(noperra ATOMIC_TYPE > 4173 | : 

‘ 1c 6A5 «3C 0048 MOVZ2WL 28(NODEPTR). BIT_LENGTH > 4124 | : 

01 52 D1 004 CMPL  ATOMIC_TYPE, #1 : 4175 : 

12 13 0049 BEQL 64$ : | : 

22 52 01 0049 CMPL  ATOMIC_TYPE, #34 : 4176) : 

Op 13 0498 BEQL : : 

29 D1 0049A CMPL ATOMIC_TYPE, #41 > 4177 | : 

13 00490 BEQL 4 ; : 

2A D1 0049F CMPL  ATOMIC_TYPE, #42 : 4178. : 

13 O4ne BEQL : | : 

53 08 C4 004A4 MULL2 #8, BIT_LENGTH > 4180 | : 

E D4 004A7 64$: CLRL - > 4183 : 

OC BB 004A9 PUSHR #*M<R2,R3> : 3 


| f 9 
GPARSER 16-Sep-19 210: AX-11 Bliss-32 v4.0-7%4 Page 150 
ype ersee= 188 PS319i43 «| HOSS She sseeeakcet oss. 1 9° 19) ve 
000000006 0 FB 004 CALLS #3, DBGSTYPEID_FOR_ATOMIC : : 
00° 9 9 50 bce MOVL 4 BP ENODEPTRI " : 
10 10 AC D| 65$ CMPL = FCODE, + 4187 
1 4BA BNEQ  66$ : | 
5 6 DO 0048¢ MOVL #8, ATOMIC_TYPE + 4190 
DO 004BF MOVL #32, BIT_LENGTH + 4191, 
E D4 004C2 CLRL 0s =< SP) + 4192 
BB 0044 PUSHR #*M<R2,R3> : 
000000006 00 F O4C6 CALLS #3, DBGSTYPEID_FOR_ATOMIC ; 
4 «(Of p 4CD MOVL RO. TYPEID : 
08 A 08 AC 0401 66$ VB KIND, 8(NODEPTR) : 6 13 
9 A 10 ac 9 0406 MOVB CODE, 9(NODEPTR) : 4213. 
re 14 AC DO 0040 MOVL TYPEIb, 12(NODEPTR) + 4214 | 
10 AS OC AC DO 004E MOVL Symp 16(NODEPTR) + 4215 | 
16 AS D4 004E CLRL OCNObEPTR) : 6 1 
07 +A 08 AC 90 OO4E MOVB KIND, 7(R8) : 432 
06 A 10 ac 90 Q4ED MOVB FCODE, 6(R8) + 4226 | 
08 AB 14 AC 00 AF MOVL _——‘TYPEID, 8(R8) : 4 25 
18 «88 65 OE 004F INSQUE (NODEPTR), a24(R8) + 4231 
04 004FB T : 4 34 
: Routine Size: 1276 bytes, Routine Base: DBGSCODE + 006C 
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GLOBAL ROUTINE DBGSEXP_INT(INPUT_DESC, RADIX, VALUE_PTR, TERM_INDEX) = 
FUNCTI 


w 


ON 

This is the common — Interpreter for most Languages 
supported by DEBUG. t parses and Syetuetes a source anguage 
expression and returns a Value Descriptor which represents the 
value of the expression. This routine itself is only a set-up 
routine which sets up the character pointer and the expression 
veers, te use end then calls DBGSEXPRESSION_PARSER to do the 
actual work. 


INPUTS 
INPUT_DESC = The address of a VAX standard olen a hy poe which 
describes the input string to be parsed. The length is 
actually not used, however--the string is instead assumed 
to be terminated by a carriage-return character. 


RADIX = The radix to be used to interpret integer constants in the 
sneyt A ag F The allowed radix values are DBGSK_DECIMAL, 
DBGSK_HEX, DBGSK_OCTAL, and DBGS$K_BINARY. 


VALUE_PTR = The address of a longword to receive a pointer to the 
value descriptor returned by this routine as its output. 


' 
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: TERM_INDEX = A ‘‘terminator index’’ which indicates which lexical tokens 
: are allowed as expression terminators in this context. These 
: index values have names of the form TOKENSK_TERM_xxx. 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


5th Optional Parameter - If this is present, and the value is 
DBGSK_DEPOSIT VERB then pass this into 
DBGSERPRESSION_PARSER, so that in 
DBGSEXPRESSION_PARSER, when the expression is not 
address expression and in deposit command, 
DBGSEVAL_LANG OPERATOR will not be called with 
DBGSGL_IBENTITY_TOKEN. 
(This Ts passed in from DBGSNPARSE_DEPOSIT, from 

DBGSNPARSE_EXPRESSION). 
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OUTPUTS 
VALUE_PTR = The address of a Value Descriptor is returned to VALUE_PTR. 
This Value poate loror fepcossats the value of the expression 


The value STS$K_SUCCESS is return as the routine result if the gyores= 
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7 sion was terminated by a carriage-return character. 
+ was terminated ony other way (i.e., by a terminator token), 
+} the value STSSK_WARNING is returned. 
83 
: BEGIN 
MAP 
INPUT_DESC: REF pL ocKt gre. ! Pointer to input string descriptor 
3 VALUE_PTR: REF VECTOR {}; ! Longword to receive Value Descr ptr. 
0 LOCAL ; 
91 VALPTR: REF DBGSVALDESC; ! Pointer to returned Value Descriptor 
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BUILTIN ACTUALCOUNT ,ACTUALPARAME TER; 


! Set up CHARPTR to point to the start of the expression string. Also set 
: up the radix we are to use in the scan and initialize some variables. 


CHARPTR = .INPUT_DESCCDSCSA_POINTER); 
EXPRESSION RADIX™= .RADIX; 
SAVED_TOKER = 0; 


! Call the Expression Parser to parse the Language expression. If the 
' result is an unconverted constant Value Descriptor, we convert it to 
a real Value Descriptor here. Then return the Value Descriptor pointer. 


if ACTUALCOUNT() GTR 4 
THEN 
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BEGIN 
4 ACTUALPARAMETER(S5) NEQ DBGSK_DEPOSIT_VERB 
$DBG_ERROR( "DBGPARSER\DBGSEXP_INT"); 


VALPTR = DBGSEXPRESSION_PARSER (FALSE 
. TERM_POINTER_TBLC.TERM_INDEX] + TABLEBASE, 
ie DBGSK-DEPOSIT-VERB) ; 


ELSE 
VALPTR = SOSSERPRESSON_PORSERST MS 


E 
. TERM_POINTER_TBLC.TERM_INDEX] + TABLEBASE); 
VALUE_PTRCO) = .VALPTR; 


! Fix up the string descriptor to reflect the new location of the parse 
pointer and return the appropriate status code. 


INPUT_DESCCDOSCSW_LENGTH] = .INPUT_DESCCDSC$W_LENGTH) + 
- INPUT_DESCCDOSCSA_POINTER] - .CHARPTR; 
INPUT DESCEDSCSA POINTER] = .CHARPTR; 
IF .CRARPTRCO) NEQ CAR_RET THEN RETURN STS$K_WARNING; 
RETURN STS$K_SUCCESS; 
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-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


SE 49 SF 5 


-PSECT DBGSCODE.NOWRT, SHR, PIC,0 
003C 00000 -ENTRY DBGSEXP_INT, Save R2,R3,R4,R5 
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1 ~30071 382 95:19:43 DEBUG. SRC IDBGPARSER .B3 31 at 1) 
GLOBAL ROUTINE DBGSEXPRESSION_PARSER(ADDRESS_EXPRESSION, TERM_LIST) = 
FUNCTION 
This routine parses and taserprete either a DEBUG Address Expression or 


a language expression the current Language and returns the result of 
the expression evaluation. 


+ ahs ER 


SaIS 


a a ea ai a a 2 2 = 


The routine uses an Operator Precedence parsing scheme. Each operator 
‘s represented by an Operator Lexical Token Entry which contains the 
kind of the operator (prefix, infix, or postfix) and the left and right 
thes reeee of that operator. Operands are represented by Primary 
escriptors, Value Descriptors, or qthor Operand Lexical Token Entries. 
The operators and operands are retrieved by calling the Primary Parser. 
When an operand is encountered, it is simply stacked on the operand 
stack. When an operator is encountered, its left precedence is com- 
pared to the right precedence of the previous operator on the operator 
stack. If the previous operator has the higher or equal precedence, 

it is popped from the operator stack and evaluated. The evaluation 
requires one or two operands to be popped from the operand stack, after 
which the result is pushed back on that stack. When no previous opera- 
tor has a higher or equal precedence, the new operator is pushed onto 
the operator stack. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

i 

i 

; The operator stack is always initialized with the ‘initiator operator’ 
: which ensures that there is always a previous operator on the stack. 
: The end of an expression is always otgnet tee by the ‘terminator opera- 
: tor’ whose left precedence is set such that it forces evaluation of all 
: Sporeters still on the operator stack up to the initiator operator. 
' 
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e single operand left on the operand stack thereafter constitutes 
the result of the expression evaluation. 


5 
6? 


This reunion, accepts a List of allowed ‘terminator tokens”, (keywords 
or 


such as or ‘THEN’ or special characters such as ° e 
Copendine on context). This List is passed to the Lexical Scanner 
which returns the Terminator Operator when such a token or a carriage- 
return is encountered. As a side effect, OWN variable TERMINATOR_CODE 
is set to a value which indicates which terminator token was found. 
That terminator'’s character length is also set in TERMINATOR_LENGTH. 
(This side effect is used when parsing subscript expressions.) 


INPUTS 
ADDRESS_EXPRESSION - A flag set to TRUE if a DEBUG Address Engrece ten 
is to be parsed and evaluated. If this flag is FALSE, a 
Sengue e expression for the current language is parsed and 
evaluated instead. This flag affects both the lexical 
scanning of operator symbols and the parsing and evaluation 
of the expression operators. 


TERM_LIST = A vector of pointers to Terminator Lexical Token Ener ten 
for the Terminator Tokens which can terminate the expression 
to be parsed. The vector must be in PLIT form (TERM_LIST(-1] 
gives the number of entries) and each pointer is expected to 

e relative to TABLEBASE. If there are no terminator tokens 
other than carriage return, this List is empty (0 entries). 
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3rd Optional Parameter - If this is present, and the value is 


1E$et94e QB:NR:NE YMG Sha aSel28, 


4393 ‘ DBGSK gperosit VERB chen this is passed in from 
4394 ' DBGSER {roe DBG hg = “4 ESSION, and from 
4395 1: DBCSNPARSE SEPSOIT © tha 
4 38 : DBGSEXPRESSION_ PARSER, "een she ‘expression is not 
439 ' address —— ession and in dep 
4 38 ‘ DBGSEVAL_LANG OPERATOR will net be’ called “with 
$2 } DBGSGL_IBENTITY_TOKEN. 
4401 ' OUTPUTS 
44 § ‘ A pointer to a Primary Descriptor or a Value Descriptor spec tiene the 
44 ‘ result of the expression evaluation is returned as t 
44 ‘ routine value. 
4405 : 

3 sco? BEGIN 

95 4 

4 44 P 

4 0 TERM_LIST: REF VECTORC,LONG); ! Pointer to Terminator Table 
44 LITERA 


MAK _OPAND_INDEX = $2: ! Maximum size of operand stack 
MAX_OPTOR_INDEX = ! Maximum size of operator stack 


LOCAL 


DEPOSIT_FLAG, A wheg te to indicate the call is 
rom DBGSNPARSE Massy 
JUNK, Output peraneter = not use 
LEFT_ARG, Pointer to the left (or only) argument 


of the current operator 
Pointer to top operator on p Cpereeer 
stack--operator to the 
of the current operator 
Petacer to a Primary Descriptor 
The operator code for curren $ gpereter 


LEFT_OP: REF TOKENSENTRY, 


NEW_PRIMPTR: REF DBGSPRIMARY, 


33 Ss328SSS 3 
ARUN —OSBNR NR UN 


OPAN Current index into OPERAND 
SPERARD NEXPECTED, Flag set when operand or ite ope- 
rator is expected next 

OPERAND_STACK Parser’s operand stack 

44 ~VECTOREMAX _OPAND_INDEX), 

44 OPERATOR_STACK Parser'’s operator stack 

44 DECTOREMAX _OPTOR_INDEX], 

44 OPTOR_INDEX, Current index into OPERATOR_STACK 

44 PAREN-NESTING Parenthesis ages seg depth in expr 


PRIMPTR: REF C  RGSPRIMARY, 
IGHT_ARG 


Pointer to a Pri mary Descriptor 
Pointer to the right argument to the 
current operator 
loporery ¢ opy of bit-select token 
Pointer to current Token Entry 
Flag th by Primary Parser 
saying an operand was returned 
Poteen to Primary or Value Descriptor 


TEMP TOKEN: REF a, 
TOKER: REF TOKENSENT 
TOKEN_OPERAND_FLAG, 


VALPTR: REF DBGSPRIMARY; 
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BUILTIN ACTUALCOUNT ,ACTUALPARAME TER; 
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DEPOSIT_FLAG = FALSE; 


<9 


9 
veerange™ Eee HONS WSU UETS., | iS 


as 9 if ACTUALCOUNT() GTR 2 
ae HEN 
ah § BEGIN 
we IF ACTUALPARAMETER(3) NEQ DBGSK_DEPOSIT_VERB 
4454 THEN 
4455 

4 
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“a 

4 
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4% 


4337 

4 

4 

Br 

2 ¢ rr) $DBG_ERROR( " DBGNPARSE \DBGSNPARSE _EXPRESSION'); 

4344 44 $ DEPOSIT_FLAG = TRUE; 

4345 44 3 END; 

4 $ 445 

4 4460 

4 : 4461 : Initialize the operator stack to contain one operator, the initiator 

4 446 ! operator. Also initialize the operand stack to be empty. Indicate 
20 rr } that we expect an operand at the start of the parse. 
3 4465 OPTOR INDEX = 0; | 
5 rr OPERATOR STACKL.OPTOR_INDEX] = INITIATOR_TOKEN; 
54 446 OPAND_INDEX = =-1; 
55 4468 OPERAND_EXPECTED = TRUE; 
28 4469 PAREN_NESTING = 0; 
5 4470 
58 44671 

359 447 


Loop through all operands and operators on the input Line being perece 
until we reach the terminator operator. Stack operands and stack or 
evaluate operators as appropriate until the terminator operator forces | 
evaluation of all stacked operators. 


HILE TRUE DO 
BEGIN 


! Pick up the next operand or operator. An operand is returned as a 
! Primary Descriptor or a Value Descriptor by the ver Parser. 
An operator is just returned as an Operator Lexical Token Entry. 


DBGSPRIMARY_PARSER( .OPERAND_EXPECTED, . ADDRESS EXPRESSION | 
TERM_LIST,~.PAREN_NESTING, TOREN, TOKEN_OPERAND_FLAG); | 


! Handle operands. If this is an operand, check that we are actually 
! expecting an operand at this point. Then stack the operand on the 
operand stack and loop to get the next operand or operator. 


if .TOKEN_OPERAND_FLAG 
THEN 


BEGIN 
IF NOT .OPERAND_EXPECTED 
THEN 


I<Knennnnnnnn= FIX UP MESSAGE ---------- ------------------------ 


IX UP M 
SIGNAL (DBGS$_MISINVOPER, 1, UPLIT BYTE(ZASCIC ‘somewhere')); 


OPERAND EXPECTED = FALSE; 
OPAND_IRDEX = .OPAND_ INDEX + 1; 

IF .OPAND INDEX GEQ MAX OPAND_INDEX THEN SIGNAL (DBG$_PARSTKOVR); 
OPERAND_STACKL.OPAND_INDEX) =". TOKEN; 

If» DBGSGL_DEVELOPERT ] THEN DUMP_PRIMARY(. TOKEN); 
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3 4394 4507 4 
; 4395 4 4 
3 4 +4 4 4 ! Handle operators. First check that an operator of this operator's 
3; 439 4510 4 ! kind is expected. Then loop to pop all higher-precedence operators 
3; 4 a8 4511 4 ! from the operator stack so they can be evaluated. When no higher- 
3 4 4 \§ 4 ' precedence operators are left on the stack, we stack the current 
3; 4400 451 4 ' operator on the operator stack. 
3; 4401 4514 & ! 
3; 440 4515 3 ELSE 
3; 440 $218 4 BEGIN 
3 44046 4517 4 
3; 4405 rth 4 4 
3 rey 451 4 ' Check that an operator was expected unless this is a 8 he 
3; 440 4520 4 ! operator (which is okay when we expect an operand). his check 
3: 4408 4521 4 ! catches any expression which is not well-formed, including empty 
: 4409 45 ¢ 4 ! expressions. Also say that we expect an operand next unless 
3 4410 45 4 ! this is a postfix operator. 
3 4411 4524 4 ' 
: z2h6 4525 5 IF (.OPERAND_EXPECTED AND 
3: 441 4526 4 . TOKENCTOKENSB_KIND] NEQ TOKENSK_PREFIX_OP)) OR 
3 4414 $252 H ((NOT .OPERAND_EXPECTED) AN 
$ rehtt $2 : ? — (. TOKENCTOKENSB_KIND] EQL TOKENSK_PREFIX_OP)) 
3 ret ts 43% ? SIGNAL (DBGS_MISOPEMIS, 1, TOKENCTOKENSB_OPLEN)); 
3 1238 $236 ? IF .TOKENCTOKENSB_KIND] NEQ TOKENSK_POSTFIX_OP 
; 4e3 4534 4 OPERAND_EXPECTED = TRUE; 
3: 44 $ 4535 4 
3: 446 $298 4 
: 4624 4537 4 ' Pop and evaluate all operators on the operator stack whose prece- 
3 4425 4538 4 ! dence is higher than or equal to the current operator's. When we 
3 a : rite 4 : finally reach a lower-precedence operator, we exit the pop Loop. 
3; 4428 4541 & WHILE TRUE DO 
3; 4429 iy | 5 BEGIN 
3: 44350 4543 5 
3: 4431 4544 5 
3 443 4545 5 ! If the current operator (TOKEN) has a precedence higher than 
3: 443 re 5 ! the precedence of the top operator on the stack (LEFT_OP), 
3 mek r) ret 5 then leave this loop. 
: 4436 4549 LEFT_OP =. oe Sah RE ES Teh a ng 
3 4437 4550 IF .CEFT_OPCTOKENSB_R_PREC) LSS [TOKEN TOKENSB_L_PRECJ 
3: 4438 4551 THEN 
3: 4439 $226 EXITLOOP; 
3: 4440 455 
3 4441 4554 
3 444 4555 ! The LEFT_OP operator has a higher or equal precedence. Pop 
3 446 $228 ! it from the operator stack and evaluate it. Start by picking 
3 rere | $222 up its operands from the operand stack. 
3 4446 4559 OPTOR_INDEX = .OPTOR_INDEX = 1; 
3 444 4560 IF .OPTOR_INDEX LSS 0 
3 4448 4561 THEN 
3 4449 $206 $DBG_ERROR("DBGPARSER\EXPRESSION_PARSER 1°); 
3; 4450 4565 5 
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aes 


3; 4451 4564 LEFT_ARG = a FPERRD STARS APRS SEDER : 
3 44 ¢ 4565 RIGHT_ARG = 0; 3 
3 a ; é 66 If LEFT OPCTOKENSB_KIND] EQL TOKENSK_INFIX_OP 3 
3; 44655 4 o8 6 BEGIN ‘ 
3; 44 $ $2 6 RIGHT_ARG = .LEFT_ARG; ‘ 
3 445 43 0 6 OPAND-INDEX = .OPAND_[NDEX - 1; ; 
; 4458 4571 LEFT_ARG = .OPERAND_STACKC.OPAND_INDEXJ; ‘ 
7 - : 
: rere 4878 IF .DBGSGL_DEVELOPERC3] THEN DUMP_OPERATOR(.LEFT_OP, FALSE); : 
> 446 457 ; 
3 4464 1879 ! If the operator we are about to evaluate is a ‘‘lexical"’ ; 
3; 4465 4578 ! operator, meaning that it has some semantic effect on the : 
3 4666 4579 ! lexical processing or gersing of the current expression, ‘ 
: rev tf $280 we perform that semantic action here. | : 
3 4469 t28¢ 5 IF .LEFT_OPCTOKENSV_LEXICALJ ‘ 
: 4470 4583 5 THEN : 
3 4471 4584 6 BEGIN ‘ 
3 447 4585 6 SELECTONE .LEFT_OPCTOKENSW_CODEJ OF ‘ 
3 447 4586 6 SET é 
3 4474 4587 6 : 
3 4475 4588 6 : 
> 4476 4589 6 ! If evaluation of an open parenthesis operator is ; 
3 4477 4590 6 ! forced by the terminator operator, we signal : 
3: 4478 4591 6 ! unbalanced parentheses. $ 
3 4479 $206 6 : : 
3; 4480 4593 6 CTOKENSK_OPENPAREN): 3 
3; 4481 4594 6 SIGNAL (DBG$_UNBPAREN) ; : 
3; 448 4595 6 ‘ 
3; 448 4596 6 7 : 
3 4484 4597 6 ! Restore the current radix to decimal. This undoes : 
3; 4485 4598 6 ' a previous radix operator (such as %HEX) in the input. : 
: 4486 4599 6 : | 3 
3; 4487 4600 6 CTOKENSK_RADIX_DEC): : 
3; 4488 4601 6 EXPRESSION_RADIX = DBGSK_DECIMAL; : 
3 4489 4602 6 : 
3 4490 46035 6 \ ? 3 : 
3 4491 4604 6 ! Restore the current radix to hexadecimal. This undoes i 
3 449 4605 6 ' a previous radix operator (such as ZDEC) in the input. i 
3 449 4606 6 : ‘ 
3 44 4607 6 CTOKENSK_RADIX_HEX]: ‘ 
3: 4495 4608 6 EXPRESSION-RADIX = DBGSK_HEX; F 
3 4496 4609 6 ‘ 
3 4497 4610 6 ; ‘ 
3; 4498 4611 6 ! Restore the current radix to octal. This undoes a ; : 
s rch rt ° previous radix operator (such as ZHEX) in the input. i 
3; 4501 4614 6 CTOKENSK_RADIX_OCTI: i 
3 $208 4615 6 EXPRESSION_RADIX = DBGSK_OCTAL; : 
: 450 4616 6 ‘ 
3 4504 4617 6 : ; i i 
3; 4505 4618 6 ' Restore the current radix to binary, This undoes a i 
: $208 red ° previous radix operator (such as ZHEX) in the input. 


19 i Page 159 DE 
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’ E 
X_BINI: 
: ¢ 03 te é CTO EN PRESS PONT RAD LA = DBGSK_BINARY; 
: 451 46 ; 
: ; 12 te : 4 ' Infix NOT should not show up here. 
: 4626 6 ‘ | ; 
ee i toga tS ven, 1. cert orrocenta_onsn 2 
451 = 
; re --a lexical operator should : 
+ Riot ete eet 7 
: te19 rf 3 i if it has no semantic action here. 
: 4635 6 i , ; 
fe eS ener caaghi rasta seamen a : 
4 al 
: 4636 6 : 
: é $ 4637 .6 TES; 
+ 4525 4638 6 tae : 
ie eS : 
re 5 oe $ 
; eee | tor--it is a ‘‘normal'’ operator. ; 
; HE tees It this ph tay Raccety: pomen Bf evaluate the Address 
: teat tbea g i Expression operator. 
oO i 
: 4338 rer $ ELSE IF .ADDRESS_EXPRESSION | 
: 4647 5 THEN ms ; 
ey HAY ene TAT SENDEIN erro, wert ane. ster : 
4 J J 
: 4650 5 
4538 $62) 2 ! And if it is a language expression, evaluate this non-lexical 
: 1328 1638 : i operator according to language rules. 
: rerk 4654 5 i 
: 4362 4655 5 —_ 
: 454 4656 6 . fas 
g $368 rhe ae RATOR returns a pointer to a Primary Descrip 
ides GSR | EVAL LANG OPERATOR returns. 8 points 
; teeh teet e PRINPTR = DBGSEVAL_LANG_OPERATOR(.LEFT_OP, .LEFT_ARG, .RIGHT_ARG); 
+ 4549 466¢ 6 
; . ? turned from the expression 
a Hag He pcrinez.tevertotar wpe couaped, from the erreeeion, 
$226 ‘32 2 i An example of this is the C expression: 
$22 rhs ae i EVALUATE (®PTR). COMPONENT coaaes 
; teee ret) 3 i The (#PTR) will be quolusted by the expression evelus 
2 i and a Primary Descriptor w ably, 
r+ ‘4 ). Then we need to call the Primary 
; 4387 tert é oeee aetniek ae td rest of the expression. 
; 4359 rhe g i PRIMPTRCDBGSB_DHDR_TYPE] EQL DBGS$K_PRIMARY_DESC 
: 238 HEN 
4561 4674 § acein 
: 75 
: 1368 te? 7 DBGSPRIMARY_PARSER ( Phocians Goll nets 
° FALSE, 
3: 4564 4677 7 
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“008 
; 4565 4678 7 FALSE, ! Not address expression 
3; 4 $8 4679 7 TERM_LIST, ! Pass along terminator List 
; 456 4680 7 6 ! Parenthesis nesting 
> 46568 4681 7 NEW_PRIMPTR, i Address to fill in result 
7 4 $9 46 7 JUNR, ' Not used 
; 4570 4 7 »PRIMPTR, ! Input Primary 
: $ef) 46 7 REMEMBER C_STATE_GOT_SUBSCRIPT); 
3; 4 Lf: 4685 7 PRIMPTR = «NEW SPRIMPTR; 
; 457 46 $ ‘6 ND; 
3; 4574 46 6 
; 4575 4688 6 
34 76 4689 6 ! Now just put the result of the expression on top of 
; 2 ree ? the expression stack. 
; ret 469 $ OPERAND_STACKC.OPAND_INDEX] = .PRIMPTR; 
; 4580 469 END; 
3; 4581 4694 4 END; ! End of pop and evaluate loop 
s t285 4695 4 
; 458 4696 4 
3 4584 4697 4 ! If the new operator is a ‘lexical operator’’, meaning that it has 
3; 4585 4698 4 ' some semantic effect on the lexical processing or parsing of the 
3 $288 4699 4 ' current eupress tee. we perform that semantic action here. for 3 
3; 458 4700 4 ! example, the terminator operator has the semantic effect of term- 
3 $288 rest 2 inating the scan of the current expression. 
; 4590 4703 4 IF .TOKENCTOKENSV_LEXICAL) 
3; 4591 4704 4 THEN 
3 $256 4705 ; BEGIN 
3; 459 470 SELECTONE .TOKENCTOKENSW_CODE) OF 
3; 4594 4707 5 SET 
3; 4595 4708 2 
3; 4596 4709 
3; 4597 4710 5 ! If this is the terminator operator, exit the parse loop. 
; 4598 4711 5§ : 
3; 4599 rat 5 CTOKENSK_TERMINATOR]: 
; 4600 4713 5 EXITCOOP; 
3; 4601 4714 5 
: 460 4715 5 . 
3; 460 ors 5 ! If this is an open parenthesis ‘("’, increment the 
3; 4604 471 : ! parenthesis count. 
3; 4605 4718 ‘ 
3 $008 4719 § CTOKENSK_OPENPAREN]: 
: 460 4720 5 PARER_NESTING = .PAREN_NESTING + 1; 
3; 4608 4721 2 
3; 4609 47 § ; 
3; 4610 47 5 ! If this is a close parenthesis ‘')"’, decrement the paren- 
3; 4611 4724 5 ! thesis count, check for balanced parentheses, and remove 
3 ret | 4725 ' both the close parenthesis and the matching open paren- 
; $3t7 of § : thesis from the operator stack. 
3 4615 4728 CTOKENSK_CLOSEPAREN): 
: sei¢ 4729 6 GIN 
3; 461 4730 6 PAREN_NESTING = .PAREN_NESTING - 1; 
3; 4618 4731 6 IF .PAREN_NESTING LSS 0 THEN SIGNAL (DBG$_UNBPAREN) ; 
3; 4619 47 ; 6 IF .OPTOR_INDEX LSS 
3; 4620 47 6 THEN 
3: 4621 4734 6 $DBG_ERROR("DBGPARSER\EXPRESSION_PARSER 2°); 
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DI 
vl 


; 4735 6 OPTOR_INDEX = 2; : 
; i339 8 POKENTs OPERATOR. STREKT OPTOR: INDEX + 1: 
: 4738 END; 
; 4740 tant C1, 3..4, 10], call routine : 
‘ ote) to buitd's valus descriptor and push it on the operand ‘ 
; rok i stack Ignore ‘C* by not pushing it on the operator 
: thee i stack. 
: 4745 } : 3 
; 4746 CTOKENSK OPENSET: ; 
2 4768 6 OPERAND tet A beBhy ¢ 4: ; 
: ans $ OF NOPAND INDEX GEQ MAX_OPAND_INDEX 
cre 3 THEN. 1GNAL (DBGS_PARSTKOVR) ; 
: 4755 6 = GET_SET_CONSTANT(); ’ 
. RAND_STACKC.OPAND_INDEX] = GET_SET_ : 
; ret é Tr DBCSCL DEVELOPERES) 
; £338 3 * NDUMP_PRIMARY(.OPERAND. STACK. OPAND_ INDEX) ; : 
; 6728 6 PERATOR_STACKC.OPTOR_INDEX]; : 
; 1500 & OPTOR_INDEX = -OPTOR- INDEX = 13 ; 
: 4760 END: 7 
7 3 . : 
: 476 “selection operator <pos,size,ext> : 
; rth altoued in Address Expressions and BLISS expressions, : 
; 4765 5 i parse the operator's parameter fields (i.e., pick up : : 
; thee i pos, size, and ext) and incorporate those values in the | 
: tree i Keoteter Lexical Token Entry put on the operator stack. | 
; i : 
; 4770 5 CTOKENSK BITSELECTI: | ; 
; KEN = DBGSGET_TEMPMEM ( 
: t77s 6 rem POKENSK FIXED SIZE LONG # 
: hh 6 . TOKENC TOKENSB_OPLENJ/4); 
; 4775 6 FIXED_SIZE BYTE + .TOKENCTOKENSB_OPLEN], : 
; t77? TOKENS, TERPDYOKERD; : 
tees irr TOKEN = .TEMP_TOKEN; : 
: 2778 8 GET_FIELOREF (7 TOKENS; : 
: tee 2780 TOKENETOKENSV_LEXICALJ = FALSE; 
+ 4668 HY ; END; 
; 4669 
3 4670 47 to decimal. Here we put a lexical : 
; 4671 4784 no be Ry cage eraaae stack which will restore the : 
: rr t} ; i current radix. We then set the radix to decimal. 
; 
: ters tp 8 CTOKENSK RADIX_DEC): 
3 467 4789 6 TOKEN = OPERATOR_TO_RESTORE_RADIX(); : 
; 4790 6 § "5 MAL; 

; 1678 4791 6 EXPRESSION_RADIX™= DBG$K_DECIMAL 
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3 pe 24 £238 END; : 
: 4681 4794 F 
3 6 § 4795 ! Set the current radix to hexadecimal. Here we put a lex- 3 
3; 4 47 ' ical operator on the operator stack which will restore : 
; ¢ ¢ $28 : the current radix. We then set the radix to hexadecimal. : 
: 46 2398 CTOKENSK_RADIX_HEX): ; 
3 reef 4800 6 Q 3 
3: 4 4801 6 OKEN = OPERATOR_TO_RESTORE_ RADIX(); 3 
3 ree 4 ret EXPRESSION. RADIX” = BBGSK_HER; : 
; 4691 4804 $ 
3; 469 4805 3 
3; 469 48 ! Set the current radix to octal. Here we put a lexical 3 
: 4694 480 i operator on the operator stack which will restore the 3 
3 rok ret current radix. We then set the radix to octal. : 
3 KENSK x : PY 

1899 4810 CTOKENSK_RADI .OcTI 
3; 4698 4811 6 In 3 
3; 4699 red | 6 TOKEN = OPERATOR_TO_RESTORE — $ 
3 ry 4' re Ht a RADIX™= BBGSK_OCTAL : 
: 470 4815 ; 
: 470 ret é 
3 4704 481 ! Set the current radix to binary. Here we put a lexical F 
3; 4705 eels 2 ! operator on the operator stack which will restore the : 
3 oie 481 i current radix. We then set the radix to binary. $ 
: 470 4820 H i 3 
3 $708 rt 1 2 CTOKENSK RADIX_ BIN): : 
: 4710 4838 6 TOKEN = OPERATOR_TO_RESTORE_RADIX(); | : 
: cn <835 ; A geotiaa RADIX”= BBGSK_BINARY; 3 
: 671 4826 3 
3 46714 4827 5 3 
3; 4715 1856 2 ' Check for double-token (NOT =, NOT <, or wor > in : 
3; 4716 rt} ' COBOL, where NOT is marked as infix and = 3 
3 4717 4830 ! is marked as prefix and lexical bit is ae Ty * Now 3 
; 4718 4831 ! at this point, we should Rove infix NOT on the 3 
3; 4719 ret} ! operator stack, and have pre fix token on hand. 3 
3; 4720 48 5 ' we'll repiece the infix NOT on the operator stack 3 
: He rt : 5 } to infix ‘NOT ; 
: 47 ¢ 48 6 : CTOKENSK_PREFIX_EQL): 3 
; sist 4837 6 8 3 
3; 4725 4838 6 TEMP_TOKEN = gs a od STACKC.OPTOR_INDEX); : 
3; 47 § 4839 6 IF TER. TOKENC TOKENSW_ COLE) EQL TORENSK_INFIX_NOT : 
3; 47 4840 § TH 3 
3; 4728 4841 NBEGIN 3 
3; 4729 4842 7 PTOR_INDEX = .OPTOR_INDEX = 1; 3 
; 47 4 7 TOKEN = COBOL_NOT_ EoC_ TOKEN; 3 
Te MSF ~ : 
: 47 4846 6 ELSE : 
: rte 4 ‘3 ? SIGNAL (DBGS_MISOPEMIS, 1, TOKENCTOKENSB_OPLEN)); 3 
3; 4735 4848 D; 3 
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Page 163 
9° OT 
: NOT > (Less equal) 
CTOKENSK PREF IX_GTRI: 
TEMP_TOKEN = OPERATOR STACKC.OPTOR INDEX]; 
IF iver TOKEN TOKENSW_CODE] EQL TORENSK_INFIX_NOT 


-OPTOR_INDEX = 1; 


BEGIN 
OPTOR_INDEX 
TO NOT_GTR_TOKEN; 


= 
KEN = COBOL 
ND 


ELSE 
- SIGNAL (DBGS_MISOPEMIS, 1, TOKENCTOKENSB_OPLEN]); 


NOT < (Greater equal) 
CTOKENSK_PREFIX_LSS): 
TEMP_TOKEN = OPERATOR STAC .PTOR INDEX]; 
IF ieee = TOKEN TOKENSW_CODE] EQL TORENSK_INFIX_NOT 


4 X = .OPTOR_INDEX = 1; 
TOKEN = COBOL_NOT_LSS_ TOKEN; 

END 
LSE 

SIGNAL (DBG$_MISOPEMIS, 1, TOKENCTOKENSB_OPLEN)); 


Do nothing, stack. 
CTOKENSK_INFIX_NOT): 
BEGIN 


! Any other case is an error because the operator should 


BB IBD DPD DADA BP. DVDSP BD ISI OOO III OB IOP AO IU 
Oo 
vw 
— 
oO 
z= 
_— 
a 
LJ 
m 


' 
' not be marked as a ‘‘lexical’’ operator if it has no 
: 38 semantic action at this point. 
4898 COTHERWISE): 
: 99 SDBG_ERROR(*DBGPARSER\EXPRESSION_PARSER 3°); 
ht TES; 
4308 END; ! End of Lexical Operator processing 
4905 


<< 


eee ce eer eee 


sys ER 


i onee 1309 
3; 4795 4 4 
3 4 4 4 
258 to) 
3 C398 £3i6 4 
; 4800 491 

; 4801 49146 
34 4915 

3 4 S218 

3 rt tir 491 
es 

3 tBoe 4920 

; 4808 4921 

3 49 ; 

; 4810 49 

$ 11 4926 
+} es 

> 4814 1959 

: able 1959 

+ 

3 re tt $336 

3; 4820 493 

3 4821 4934 

3; 48 ¢ 4935 

3; 48 £338 

3: 48246 493 

3; 48 4938 

3; 4826 4939 

3; 4827 4940 

3; 4828 4941 

3 re 9 rh 

3 4831 4944 

3; 4832 4945 


$5 58 45 58 $0 38 
50 58 45 $3 ig 
20 52 83 3h 38 ai 
90 5b 3 3h 88 GF 
90 82 3 8h 8 GF 
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18-Sep-1946 96: 19: ¥ DEBUG. SRC JDBGPARSER. “235, 31 
! Stack the current operator on the operator stack. Then loop to 

get the next operator or eats 


OPTOR eet e PeAh 


OPTOR x GEQ mAXe OPTOR inoex THEN SIGNAL (DBGS$_PARSTKOVR) ; 
APERATOR R’STACKE. OPTOR_INDEX - TOKEN; 
END; ! End of ELSE-clause for operators 
END; ! End of the get-symbol loop 


! We are all done parsing the expression. Retrieve the descriptor from 
: the top of the stack ° 


ir -OPAND_INDEX GTR 0 ase $OBG_ERROR(*DBGPARSER\EXPRESSION_PARSER 3°); 
VALPTR = [OPERAND METACKEO) 


! If this is a Language expression, — we always return a Value Descriptor. 
i bag | Descriptors or Volatile Value Descriptors are converted to 
Value Descriptors here. DBGSEVAL “LANG. OPERATOR does this for us. 


ir uot -ADDRESS i AND 
T .DEPOSIT_F 


en 
VALPTR = DBGSEVAL_LANG_OPERATOR (DBGSGL_IDENTITY_TOKEN, .VALPTR, 0); 
/ it this 7 an address expression then we always return either a 
! Pr saery escr ‘8 or or a Volatile Value Descriptor. 
0B GSEVAL ati! PERATOR does this for us. 
if -ADDRESS_EXPRESSION 
VALPTR = DBGSEVAL_ADDR_OPERATOR (DBGSGL_IDENTITY_TOKEN, .VALPTR, 0); 


RETURN .VALPTR; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


2 41 50 3} 47 42 44 IF 056 P.AWS: .ASCII <31>\DBGNPARSE\<92>\DBGSNPARSE_EXPRESS\ 
45 SF 45 55 52 41 50 4 0 
4E 4F 4 ASCII pw 
; § 77 $3 60 6F 73 09 76 P.AWT: .ASCII >\somewhe 
41 50 47 42 44 3 eAWU: = =.ASCII £39>\DBEPARSER\<92>\EXPRESS ION. PARSER \ 

0 SF 4E 4F 49 535 53 $3 F ascl) \1\ 

33 2 41 50 47 $g 4h ; 9E P.AWV: ASCII ¢50>\DBGPARSER\<92>\EXPRESSION_PARSER \ 
3 3¢ 41 50 47 $ 44 iD BD P.AWW: .ASCII +39} \DBGPARSER\<92>\EXPRESSION_PARSER \ 
O SF 4E 4F 49 535 53 4 occ 


roe 


; 
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Be Be Oe Oe Oe Be Be Se Se Fe Se Be Se Se Ge Se Se Fe Se Se Ge Se Be SH Se Se Se Se Se Se Fe Se we Se Se SESH Se BH Se SH Oe SH Se Se Se SH Oe Se Oe SESH Se SH Oe Se ee 


it 10 
ARSER 6-Se “19 :1 AX-11 Bliss-32 v4.0-7 Page 165 Dd 
at 1exgee= 1382 98:19:43 «HOMES Shissegs Ngee" 285. 29¢ 34) vl 
52 6 45 2 461 50 47 42 & is BB P.AWX ASE M5)» \wecPanSEn\<o2>\ExPRESSION PARSER \ : : 
38 33 t3 3 35 41 33 3 4E 4F 49 8 #1 ; if ie 3 - : : 
52 6 45 2 41 50 47 42 & F9 P.AWY: .ASCII <29>\DBGPARSER\<92>\EXPRESSION PARSER \ : : 
38 33 3 8 8S tf 83 BF Gt RP GS tg 8 3 108 sien termine ican. tpg 
<PSECT DBGSCODE,NOWRT, SHR, PIC,0 | ; 
OFFC 00000 ENTRY Rrebarscaigonn PARSER, Save R2.R3,R4,R5,R6,~; 4336, : 
SE FFI8 ce 9€ 0000 MOVAB we : : 
E 04 0000 CLRL oePosit ERG + 4449) : 
02 6C 91 00009 ¢ (AP), #2 + 4450 : 
1E 18 0000C BLEQU ; : 
05 0c At D1 000 CMPL g(AP) rT : 4453) ; 
1§ 13 0001 BEQL si ; ; 
00000000" EF 9F 00014 PUSHAB P.AWS + 4455 | : 
1 DD OOO1A PUSHL #1 : 3 
00028362 8F DD 0001 PUSHL #164706 : : 
000000006 00 3 FB 000 CALLS #3, LIBSSIGNAL : ; 
6E 1 00 00029 1$: MOVL =s#'] gpeposit FLAG : 4457) 3 
6 D4 0002C 2$: CLRL  OPTOR_IN ; 4465. : 
24 AE46 00000000 EF 9E 0002E MOVAB misting OPERATOR_STACK= : 4466 | : 
57 1 CE 00037 MNEGL a. oP PRAD D_INDEX + 6467 : 
04 AE 1 00 0003A MOVL OPERARD EXPECTED + 4468 : 
B D4 000 CLRL PAREN STING + 6469 | : 
14 AE 9F 00040 38: PUSHAB TOKEN_ OPERAND FLAG 7 4485 | 3 
1¢ AE OF 0004 PUSHAB TOKEN” F : 
5B DD 0046 PUSHL PAREN_NESTING + 4486) : 
04 AC 7D 0004 mova ADDRESS. _EXPRESSION, =(SP) 3 4485 | : 
18 AE DD 0004C PUSHL OPE RAND ~ ; : 
0000v ct 06 FB 0004F CALLS DBGSPRIMARY _PARSER : : 
a 18 AE 00 00054 MOVL +i N, 7 4504) : 
14 AE €9 00058 BLBC «TOKEN OPERAND FLAG > 4493 | : 
04 AE 3 d05¢ BLBS OPERARD EXPECTED, is > 4496 | : 
00000000' EF SF 000 PUSHAB > 4499 | : 
1 oD se PUSHL 3 | F 
000289AA 8F DD 000 PUSHL 66314 F : 
000000006 00 3 6C+*F $6 CALLS ase LIBSSIGNA 3 3 
04 AE OD 4$: CLAL OPERAND EXPECTED + 4501 | : 
3 D INCL  OPAND_IRDEX : 4308 : 
19 f D1 za CPL PAND-INDEX, #25 : 4503. : 
00028060 8F DD 0007F PUSHL #164064 ; : 
000000006 09 Se 85 CALLS #, LIBSSIGNAL : : 
9C AD4 D 5$: MOVL * OPERAND STACKLOPAND INDEX} 5 4504. : 
a? 000000006 00 E 9 BBC ; DBGSGL_DEVELOPER, 3S : 4505 : 
DD 00099 PUSHL ne ; : 
0000v CF Fe CALLS , DUMP_PRIMARY : : 
A s MOS 6s BBC OPERAND_ EXPECTED. 78 : 283 : 
%] % BE 5 8 CMPB = @TOKEN, “#2 : 2358 : 


—————__—_- r 


GPARSER 15-50 -1 AX-11 Bliss-32 v4.0-7%4 Page 1 .) 
it 1enee= hoe $3519i98 «| OSS She ssszeakcet oss. 1 age OD v 
OA 1 AA BNEQ =s 8S. : 
1A 04 AE aC BLES § OPERAND_EXPECTED, 9$ + 6527 
02 8 9 7$: we TOKEN, #2 : 4528 
7E 18 AE ¢ B6 8$: ADDL3 #12, TOKEN, =(SP) + 4530 
00028982 BF bp o00Bp euSt 66322 : 
000000006 90 F a CALLS a LIBSSIGNAL ; 
8 ? cA 9$: CPS r&b), + 4532 
04 Ag 1 p0 O00CF MOVL OPERAND_EXPECT t 6534 
5 24 AEG p 0 D3 10$:  MOVL OPERATOR STAEKCORTOR. INDEX], LEFT_OP + 6549 
0S AB 4 Ad 91 0000 CMPB (LEFT. oP) + 4550 
If 0 DD BGEQU : 
5 ote ee boore 118: Sabcee 288 INDEX, 128 = 4559. 
00000000" EF 9F O00E " - PUSHABsP.AWUT : t 4562 
1 DD O00EB PUSHL F 
00028362 8F DD QOED PUSHL ; 
000000006 00 ; FB OOF CALLS #3 LIBSSIGNAL : 
08 AE 9C ADS? 0D OOFA 12$:  MOVL  OPERAND STACKCOPAND_INDEX], LEFT_ARG + 6564 
0c 3 4 100 CLRL az + 4565 
03 69 91 0105 CHPE FT“OP), #3 + 4566) 
OC AE 08 Ac 04 0108 MOVL LEFT ARG, RIGHT_ARG + 4569) 
57 D7 00100 DECL § OPAND_IND : 4570 
08 A 9C AD47 DO 0010F MOVL OPERARD STACKCOPAND INDEX, LEFT_ARG : 4571. 
09 000000006 03 E1 00115 13$: BBC gpQ80S6L DEVELOPER, + 4574 
g§ BS Oolis pista OL : 
0000v CF 02 FB 91 1 CALLS a SUMP OPERATOR : 
69 09 €1 00126 148: (LEFT. oP). 248 : 458 
0B 02 a 8} 91 A ch ‘ (LEFT y, : 459 
000289FA 8F DD 801 PUSHL #166 + 6594, 
000000006 00 1 Fe 01 CALLS #1 PIBSSIGNAL : 
. 4 4 D 15$ BRB 10$ 3 
34 02 ag 81 O15 16$ CMP @ (LEFT oP), #52 + 4600. 
00000000" EF oh 06 o143 MOVL #10, EXPRESSION_RADIX ; 4601 
§ 11 0014C 178 BRB 10$ : 
35 02 ay 81 O14 18$ CMP @(LEFT OP), #53 ; 4607 | 
00000000" EF 1 06 91 4 MOVL #16, EXPRESSION_RADIX + 4608 | 
6 158 BRB 5$ ; 
bY 02 ag 81 set 19% CMP CLEFT. OP), #54 + 4614 
00000000" EF o8 06 0165 MOVL i, EXPRESSION_RADIX ; 4615 
37 02 Ag 81 1g 208: cnPw Stent OP), #55 : 4621 
00000000" EF 06 V7 MOVL We, EXPRESSION_RADIX ; 4622 | 
2c 02 A 8} 17B 21$: CMPW CLEFT. OP), #44 + 4627 
0 2 0017F BNEQ : 
0c AD OF 181 PUSHAB 12(LEFT_OP) : 4628 
01 oD 001 PUSHL # ; 


SSS SSS ee 
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00028962 tH PUSHL wieeree 


<o 


1 : 3 

3 i 18C BRB : 3 

00000000' f OO18E 22$:  PUSHAB P.AWV + 4635 ; 

00028362 BF bp 001 PusHt #164706 : ; 

000000006 00 g FB 0019C 238: CALLS # LIBSSIGNAL ; os : 
16 4 AC E9 OO1A5 2468:  BLBC ADDRESS_EXPRESSION, 26$ t 464 ; 

C AE DD OO1A PUSHL RIGHT_ARG : ; 

€ AE DD OO1AC PUSHL LEFT_ARG ; ; 

DD OO1AF PUSHL LEF 3 3 

000000906 09 FB 1B1 CALLS #35, BBGSEVAL_ADDR_OPERATOR : 3 
C AD4 DO 00188 MOVL RO, OPERAND_STACKTOPAND_INDEX) : ; 

D 11 001BD 358: BRB 17$ + 4648 : 

oc AE OD OO1BF 26$:  PUSHL RIGHT_ARG + 4661, ; 

CO Be abe put LErT-tp® boa 

P | ° 

000000006 00 03 FB O1¢ CALLS fF BBGSEVAL_LANG_OPERATOR : ; 
10 A 0 D OicE MOVL RO. P : | : 
00000079 8F 10 BE 10D O01 CMPZV #16, #8, @PRIMPTR, #121 : 4673 | ; 
1¢ 12 0010C BNEQ 27$ : | ; 

16 DD 9910 PUSHL #22 F 4676 | ; 

14 AE 0D OOTE PUSHL PRIMPTR : 468 3 

4 AE 9F OO1E PUSHAB JUNK t 4676) ; 

C AE 9F 0016 5 NEW _PRIMPTR : : 

7E D4 O01E9 CLRL = : ; 

08 ac DD O1EB8 PUSHL TERM_LIST + 4679 : 

7E 7C OiEE CLRQ. = =(SPY > 4676 | ; 

0000V CF 0 43 Bete CALLS #8, DBGSPRIMARY_PARSER 3 : 

10 A 20 AE D 1F5 MOVL NEW_PRIMPTR, PRIMPTR : 4685) $ 

9C AD4 10 AE b0 O1FA 278 MOVL PRIMPTR, OPERAND_STACKCOPAND_INDEX) 3 4692 | 3 

FEDO 31 9200 BRW ; 4541) : 

48 68 09 £1 00203 28s BBC #9, (RB), 33S > 4703 : 
02 02 As 81 00 07 CMP (RB), #2 + 4712 : 

03 12 00 BNEQ 9$ 3 $ 

01BF 31 00200 BRW 6$ : : 

0B 02 AS 8100210 298:  CMPW (R8), #11 : 4719) : 

4 12 00214 BNEQ : ; 

38 p 6 16 INCL PAREN_NESTING ; 4720. : 

oc 02 AB BI OOZTA 308: CHPW (RB), #12 ; 4728) : 

34 é 021 BNEQ 4 ; | ; 

0D B F4 00 SOBGEQ PAREN_NESTING, 31$ : 4730, : 

000289FA BF ODD PUSHL #166394 : 4731. : 

000000006 00 1 FB CALLS #1, LIBSSIGNAL : | : 
D5 31$: iste OP fOR_INDEX : 4732. : 

00000000" EF 9F PUSHAB P. AWW > 4734 | : 

1 DO A PUSHL : : 

00028362 8F DD PUSHL #164706 ; : 

000000006 00 F 4 CALLS #3, LIBSSIGNAL ; : 
4 C 49 32%: SUBL OPTOR_ INDEX > 4736. : 

18 AE 28 Aes 9 59 3 Oaee P RATOR_STACK+4COPTOR_INDEX), TOKEN 3 ores 3 

: . : 

39 02 AB 8] if: CMPW (R8), #57 > 4746 | : 

3C é 8 BNEQ : | : 

06 AE D A CLRL  OPERAND_EXPECTED : 4748. : 


oon 


09 000000006" 


ie 


000000006 


0000Vv 
00000000" 


oopoy 
00000000' 


sat | te 
00000000' 


0000v 
00000000' 
0041 


7? 
19 : 
000280E0 F 
9 1 
47 
00 
9C ADS 
CF 01 
AE 24 "36 
F 
31 02 § 
28 oc OA 
0 04 
04 Ad 
0 1 
A 0 
0 oc 83A8 
50 Dd 
68 0 
AE 5A 
18 AE 
CF 01 
BE 0200 4 
34 02 AB 
06 
CF 0 
AE 50 
EF OA 
65 
35 02 Ag 
12 
CF 00 
AE 50 
EF 10 
6A 
36 02 AB 
12 
CF 9? 
AE ; 
EF o 
37 02 ag 
CF 
it 50 
EF 9s 
8F 02 ag 
1 
5A $s AE46 
2c: 2 =AA 
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OPAND_ INDEX 
QPAND-INDEX, #25 


#164064 
#1, LIBSSIGNAL 


> GET_SET_CONSTANT 
RO. OPERAND STACKCOPAND JNDEXI 
#3, DBGSGL_BEVELOPER, 36 
OPERAND STACK OPAND. {nDEX] 

OPERATOR STACKLOPTOR, INDEX, TOKEN 


2(R8), #49 
12(R8), RO 


4(RO) 

#1, DBGSGET_TEMPMEM 
RO, TEMP _TOREN | 
12(R8), RO 


#13, RO 

RO, (R8), (TEMP_TOKEN) 
TEMP_TOKEN, TOKEN 

#1, GET_FIELDREF 
#512, aTOKEN 

46$ 

2(R8), #52 

#0, OPERATOR, TO_RESTORE_RADIX 
#16, EXPRESSION_RADIX 

2(R8), #53 

#9. OPERATOR_TO_RESTORE RADIX 


RO N 
ig, EXPRESSION_RADIX 

2(RB), #54 

44$ 

#0, OPERATOR_TO_RESTORE_RADIX 


* TOKEN 
e: EXPRESSION_RADIX 
(RB), #55 
, OPERATOR_TO_RESTORE_RADIX 
OKEN 


F EXPRESSION_RADIX 


(RB), #65 
PERATOR_STACKCOPTOR_INDEX], TEMP_TOKEN 
gUTERP. TOKEN, #44 
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peer an ER 


18 
18 


0040 


18 


000000006 


000000006 
24 A 


000000006 


000000006 


000000006 00 


1050 bytes, 


; Routine Size: 


Routine Base: 


56 
AE 00000000" YY 
3F 02 
3A $3 AE46 
C 2 «AA 
é 
AE 00000000° FF 
8F 02 AB 
24 
5A $3 AE46 
ec 2 o¢ 
6 
AE 00000000° 4 
oc ay 
00028982 oF 
2c 02 ‘8 
00000000° Ff 
00028362 BF 
00 03 
56 
19 56 
0D 

000280E0 8F 

00 01 
E46 18 AE 
FC71 
57 

15 

00000000" fr 
00028362 BF 
00 03 
50 9¢ = AD 
18 04 Ac 
11 6E 
50 

5 

00000000° Fe 
00 3 
11 04 re 


5 
00000000' Fr 


DBGSCODE 


10 
18-Sep-1 
14-Sep-1 


SNA AAI EE EE 


WAWAWNW AWA NNNNNNNINAIAAAAAN AAW 


SOOOOSOCCOSOOCOCOCOCOOCOOCOCOOOOOOOOOOOoOoO 


oa 
ii C 
i ie 
é 9 
is He 
1 

n Bie 
Hie 
D 

B81 

Ms C 
D E 
9E 00380 
11 88 
oF 8A 
DD 00380 
DD 8F 
11 95 
B81 97 
13 00398 
oF 9D 
DD 8 A3 
DD 003A5 
FB OO3AB 
D6 00382 
D1 00384 
19 00387 
DD Ooaee 
fe 0 BF 
ui 
DS OOSCF 
15 00301 
9F 00305 
DD 00309 
DD 00308 
FB O03E1 
o ihe 
Ae 
D4 O05F 
Fs 
8 Be 
D4 00408 
y ite 
FB ocig 
04 0041 
+ O58 


as 
NO 
PM 


52$: 


57$: 


vw 
ooo 
PR 


oa 
So 
wn 


386 93:19:45 
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OPTOR_INDEX 
OL“NOT_EQL_ TOKEN, TOKEN 


(R8), #63 
49$ 


PERATOR_STACKCOPTOR_INDEX], TEMP_TOKEN 
(TEMP_TOKEN), #44 


OPTOR_INDEX 
QOL “NOT_GTR_TOKEN, TOKEN 


(RB), #64 


PERATOR_STACKCOPTOR_INDEX], TEMP_TOKEN 
(TEMP TOKEN) , #44 


OPTOR_INDE 


x 
COBOL _NOT_LSS_TOKEN, TOKEN 


64706 
#3, LIBSSIGNAL 
OPTOR_INDEX 
OPTORZINDEX, #25 


#164064 

#1, LIBSSIGNAL 

TOKEN, OPERATOR_STACKCOPTOR_INDEX] 
OPAND_INDEX 

57$ 


P.AWY 


#164706 
#3, LIBSSIGNAL 
OPERAND_STACK, VALPTR 
ADDRESS “EXPRESSION, 59$ 
DEPOSIT FLAG, 58$ 


VALPTR 
pestss DENTITY TOKEN 
#3, DBG 


EVAL_LANG OPERATOR 
ADORESS EXPRESSION. 60$ 
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GPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 171. 
yore 008 12286871382 95:19:45 DEBUG. SRCIDBGPARSER.039; 1 9°22) | 
; re ¢ 1308 : GLOBAL ROUTINE DBGSGET_BIF_ARGUMENTS (LENGTH, NAME) = 
; 4 $ i3e8 1 ! FUNCTION 
3 4 4949 1! This routine picks up built-in function arguments. It calis | 
3; 4 4950 1! DBGSEXPRESSION_PARSER to parse and evaluate each argument | 
3 rte $324 : : expression. 
3 rk Pk 4388 This routine assumes that the opening set parenthesis has 
3 rk} 4954 1! already been found and that the parse pointer points to the 
3; 484 4955 1! start of the first built-in function ok rey expression. 
3 4844 $328 1! When this routine returns, the parse pointer is left pointing 
>; 4845 4957 1! at the first character after the closing set parenthesis. 
3 oaee 4956 1! 
3 484 4959 1! INPUTS 
3: 4848 4960 1! LENGTH = The number of arguments expected. 
3; 4849 4961 7! NAME = Name of Built-in function or Ada tick operator to output 
; 4850 4962 1! when an error is to be signaled. 
3; 4851 4963 1! 
; tb2¢ 4964 1 ! OUTPUTS — | 
3 485 4965 1! Pointer to a counted vector of long words that point to the 
3 4854 4966 1! argument values. [fie vector will have a minimum Length 
3; 4855 4967 1! of 2 arguments. 
3; 4856 4968 1! 
3; 4857 4969 1 
; 4858 4970 BEGIN 
3; 4859 4971 | 
; 4860 497 MAP ; 
; 4861 497 § NAME : REF VECTOR C,BYTE); ! Name of function or tick operator 
: dees dors 5 | 
3 4 4976 2 av : REF VECTOR C,LONG], ! Pointer to counted vect. of arguments | 
3; 4865 4977 2 BIF _INDEX; ! Index into the vector 
3: 4866 4978 2 
3; 4867 4979 2 
; rere rh ; } Get temporary memory for the argument List. 
3 rey rhs § ARG_PTR = DBGSGET_TEMPMEM( MAX((.LENGTH + 1), 3) ); 
3 487 4984 : Set the vector index tc 1 and loop, picking up arguments, until 
3; 487 4985 ! a closing paren is found. The arguments are picked up by a 
; 4874 4986 : recursive call on DBGSEXPRESSION_PARSER. 
3; 4875 4987 ‘ ; 
3; 4876 4988 BIF_INDEX = 1; 
3; 4877 4989 TERMINATOR CODE = TOKENSK_TERM_NONE; 
3; 4878 4990 WHILE .TERMINATOR_CODE NEG TOKENSK_TERM_CLOSE DO 
3; 4879 4991 BEGIN 
; 4880 499 . 
; 4881 499 ! If the number of arguments found so far is more than the number 
3; 488 4994 ! expected, signal a bad argument List. 
3; 488 4995 : 
3 4884 499. IF .BIF_INDEX GTR .LENGTH 
3; 4885 499 
; rt} $338 SIGNAL (DBGS_INVARGLIS, 1, .NAME); 
; 4888 5000 ' Recursive call to pick up the argument, and store the pointer 
3 +4 2003 away in the vector. 
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5 re 4 3 ARG_PTRC.BIF_INDEX] = DBGSEXPRESSION_PARSER(FALSE, COMPAREN_TERM_TBL); 

: 489 5 ; if an invalid terminator was found signal the error. If not, 

5 : 32 oS ncrement the character pointer past the terminator. 

:4 0 if. TERMINATOR _CODE EQL TOKENSK_TERM_NONE 

3 i899 808 H = citasieg 

3; 489 3i9 SIGNAL (DBG$_MISCLOSUB) 

: 48 11 CHARPTR = .CHARPTR + TERMINATOR LENGTH; 

3; 4900 at BIF "INDEX = .BIF vTNDEX 

; 4901 1 

3; 490 14 END; 

; 490 15 

: 4904 big BIF_INDEX = .BIF_INDEX = 1; 

3; 4905 01 

3 4 5018 ! If the number of arguments found is not the same as the number of 
: rhs't4 500 } expected, signal a bad argument List. 

3; 4909 031 IF .BIF_INDEX NEQ .LENGTH 

: 4910 50 ; THEN 

; rat ans? SIGNAL (DBGS$_INVARGLIS, 1, .NAME); 

3; 491 2082 : i only one argument is requested, a zero is left for the second argument. | 
3: 49146 50 $ i This is done for the subsequent call to DBGSEVAL _LANG_OPERATOR. 
3 4915 502 i Then store away the number of arguments and return a vector of these 

3; 491 5028 i arguments. 

; 491 2063 i 

; 4918 5030 ARG_PTR(O) = .BIF_INDEX; 

3 4919 5031 

3 4920 2032 RETURN .ARG_PTR; 

: 4921 5033 1 END; 
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003C 00000 -ENTRY DBGSGET _BIF_ARGUMENTS, Save R2,R3,R4,R5 : 4946 
55 000000006 00 9€ 00002 MOVAB LIBSSIGRAL,~R ; 

54 00000000° EF 9E 00009 prey TERMINATOR” CODE, R4S 3 

50 04 AC oi ci 9010 ADDL LENGTH? RO t 4982 
03 6F D1 09017 CMPL (SP), #3 : 
03 18 OOO1A BGEQ ~=Sés«d1$ : 
6 3 00 goic MOVL #3, (SP) : 
000000006 09 i FB Oo1F 1$: CALLS t DBGSGET _TEMPMEM : 

52 01 DO 00029 MOVL 8! TINDEX, : 4988. 

64 04 99 C CLRL TERMINATOR : 4989. 

02 D4 00 t 2s: cHPL TERMINATOR — CODE, #2 : 4990 

04 ac 32 pi 99 3 cHPL IF INDEX, LENGTH : 4996 | 

08 AC pd 00039 PUSHL NAME ; 4998 | 
anne er PB a03t CALS #3” LIBSSIGN ; 

00000000" EF $F Odd? 38: PUSHAB COMPAREN, TERM- TBL ; 5003 
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1 
7E 04 D CLRL. 9 =( SP) 
FB92 CF 05 F G0ct CALLS #2, DBGSEXPRESSION PARSER 
6342 D 54 MOVL ARG_PTR) (BIF_INDEX 
4 D5 00058 TSTL : km] NATOR_CODE 
9 12 0005A BNEG 
00028690 8F 0D 000 PUSHL 
65 01 FB 906 CALL SSIGNA 
FaCC CG 06 Ab C 65 4$ ADDL TERMINATOR oLENGTH, CHARPTR 
32 DG 9068 INCL F_INDEX 
Bf 11 0006 BRB 
g D7 0006 58 DECL BIF_INDEX 
06 ac 5 D1 000 CMPL  BIF-INDEX, LENGTH 
OE 1 ; 7 BEQL «= 6$ 
08 AC Dd 0007 PUSHL NAME 
01 DD 0007A PUSHL 
00028838 8F DD 0007 PUSHL #165944 
65 03 FB 000 CALLS #3, LIBSSIGNAL 
63 52 D0 00085 6$ move” Bit INDEX, (ARG_PTR) 
50 53 00 00088 MOVL § ARG-PTR, RO 
04 00088 RET 


3; Routine Size: 140 bytes, Routine Base: DBGSCODE + 0A12 
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GLOBAL ROUTINE DBGSLEXICAL_SCANNER(C°ERAND_EXPECTED 
ADBRESS_EXPRESSION; TERM_LIST, PAREN_NESTING) = 


<o 


' 

FUNCTION 
This routine is the Lexical Scanner used during expression parsing. 
It scans the character or characters pointed to by CHARPTR to pic 
up the next lexical token Sccording to the rules of the current 
language. It picks up or constructs a Lexical Token Entry for the 
a. exical token and returns a pointer to that Token Entry as its 
result. 


Sew 


SERePRrococce 


The Lexical Scanner is called by the Primary Parser which then uses 
the returned token to build up a Primary Descriptor if the token is 
pect of a eyesore Symbol. If the returned token is not part of a 

rimary Symbol (i.e., if it is an operator in the current language or 
the current Address Expression or if it is a constant), the Primary 
Parser returns it directly to the Expression Parser. The Expression 
Parser is thus fed a stream of eperands and operators which it then 
uses to interpret and evaluate the current expression. 


oO 
r~ 


This routine assumes that the input Line being scanned has already 
been converted to upper case and it assumes that the input Line is 
terminated by a carriage-return character. It also assumes that 
the variable CHARPTR has been set up to point to the current posi- 
tion in the buffer being scanned. CHARPTR is updated by this rou- 
ooee to point to the first character position after the current 
oken. 
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' This routine accepts a list of allowed “terminator tokens’ (keywords 
such as ‘DO’ or “‘THEN’’ or special characters such as ‘',’’, "')"’, or ‘'="' 
1 
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depending on context). This List is passed to the Lexical Scanner 
which returns the Terminator Operator when such a token or a carriage- 
return is encountered. As a side effect, OWN variable TERMINATOR_CODE 
is set to a value which indicates which terminator token was found. 
That terminator's character length is also set in TERMINATOR_LENGTH. 
(This side effect is used when parsing subscript expressions.) 


INPUTS ‘iin 
OPERAND_EXPECTED = A flag set to TRUE if an operand is expected next 
in the parse of the current expression. This f " is used 
to disambiguate certain operators, such as ‘'+’' and ‘’="', 
which are prefix operators when an operand is expected 
sont and are infix operators when an operator is expected 
next. 


ADDRESS_EXPRESSION - A flag set to TRUE if we are parsing a DEBUG 
Address Expression instead of a language expression. This 
affects the parsing of Address Express on operators such 

oe te te Fe tw ne which are recognized by 

DEBUG rules, not Language rules, in Address Expressions. 


ww 


Sse 


TERM_LIST = A vector of pointers to Terminator Lexical Token Entries 
for the Terminator Tokens which can terminate the expression 
to be parsed. The vector must be in PLIT form (TERM_LIST(-1) 

ives the number of entries) and each pointer is expected to 
e relative to TABLEBASE. If there are no terminator tokens 
other than carriage return, this List is empty (0 entries). 
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| 12-8 08-1 98 95:19:13 DEBUG. SRC IDBGPARSER -B3 31 9° 23) 
3; 49 Be 

; 4981 § 1} PAREN_NESTING = The current parenthesis a depth. This parameter 
3; 49 1! is used to detect whether certain tokens are expression 

3; 49 4 1! terminators or not. (For example, a °')'* token in a sub- 

3; 49 . as script expression terminates it only if parentheses are 

3 re 5 > : : already balanced.) 

3; 49 338 1 ! OUTPUTS 

3; 49 1! A pointer to the Lexical Token Entry for the next lexical token found 

3; 4989 1 1! in the input Line is returned as the routine value. If there 
; 4990 101 7! are no more lexical tokens on the Line, a pointer to a Token 
3 ped } ¢ ; Entry for the TOKENSK_TERMINATOR operator is returned. 

: 499 1 1 

3; 4994 105 BEGIN 

BA aw 

3 4397 + TERM_LIST: REF VECTORC,LONG); ! Pointer to Terminator Table to use 

: 4999 110 LABEL 

; 5000 a CHECK_THIS_TERMINATOR; ! Label used to leave terminator 

3 st 5118 : checking code 

5 608 114 LOCAL 

3; 5004 a1)? ACTION, ! Action index during number scanning 

3 a002 118 BACKUP_DIGIT_PTR, ! Pointer to last good digit in number 
3; 5006 He } --used to back up number scan 

; 5007 118 BACKUP _NUMBER_KIND, ! Kind of numeric constant definite so 
3; 5008 119 ' far--used to back up number scan 
3; 5009 120 BEST_TOKEN_FOUND, ! Pointer to the Operator Token Entry 

3; 5010 121 } for an operator with the right 

3; 5011 1 ¢ ‘ name but the wrong kind 

3 ani¢ 215 CLASS, ' Character class code of current char- 
; 501 3} 4 : acter during number Sconning 

3; 5014 125 ENDPTR, ! Pointer to last char in an identifier 
3; 5015 218 ERRORMSG, ! Error qoeeape condition code 

3; 5016 512 INDEX ! Index into look-up tables 

3 api? 5128 NAMEPTR: REF VECTORL.BYTE), ! Pointer to name string in Percent Tbl 
3; 5018 5129 NEW_STARTPTR, ' Start pointer to lower case identifier 
3; 5019 5130 NUMBER_KIND ! Kind of Numeric Constant Token found 
3; 5020 5131 PRID: REF PRIDSENTRY, ! Pointer to Predefined Identifier Entry 
3; 5021 1 ; QUOTE, ' Quote character which started the 

; 50 ¢ 1 ‘ current quoted string constant 

; 50 1 STARTPTR: REF VECTORC,BYTE), ' Pointer to start of current token 

3; 5024 135 STATE_INDEX, ' Current Number Scanner State Table 

3; 5025 1 : ndex during number scanning 

: 30 $ 1 TERMPTR: REF TOKENSENTRY, ! Pointer to Terminator Toen Entry 

; 50 1 3 TOKEN: REF TOKENSENTRY ' Pointer to Operator Token Entry 

3; 50 3 1 TOKENBUFFER: VECTORC256,BYTE), ' Vector in which current token is 

3; 50 140 ! accumulated as Counted ASCII 

3; 50 141 TOKEN_TYPE, ! Token’s type; eg. TOKENSK_STRING 

3 8 1 46 TOKENCEN; ! The character length of current token 
: $058 i 3 

3; 5035 146 ' Start by peanning past any leading blanks. Then mark the start location 
3; 5036 514 ! of the token to be picked up. 
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' 
WHILE ,CHARTBLE - CHARPTREOJ CHRTBLSV_SPACE) DO 
CHARPTR = .CHARPTR + 1: 


STARTPTR = .CHARPTR; 


: If this took us to the carriage-return, return the terminator operator. 
iF .CHARPTRCO] EQL CAR_RET 
THEN 

BEGIN 

TERA INATOR CODE = TOKENSK_TERM_NONE; 


ERMINATOR-LENGTH = 0; 
RETURN TERMINATOR_TOKEN; 


PAEAEQPMNAMAAAIMIA 
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! Check for a valid Terminator Token. The TERM_LIST parameter Lists all 


PUD PUPP PUSPVDPVA SAAS 


THEN 
LEAVE CHECK_THIS_TERMINATOR; 


IF .CHARTBLE CHARPTREOD 
(. CHARTBLL. CHARPTRL. TERMPTRETORENSB LENGTH), 
CHRTBLSV_IDENT_ MIDDLE] OR 
. CHARTBLC..CHARPTRC. TERMPTRCTOKENSB_LENGTH]] 
CHRTBLSV_IDENT_ENDJ) 


64 
o 
$28 5 ! valid terminator tokens for the current expression. If we have one of 
05 o8 ! those here, we set TERMINATOR_CODE appropriately and return the termi- 
bes $3 } nator operator. 
4 If _;,CHARTBLC. CHARPTREOJ, CHRTBLSV_TERMINATOR] 
H ig BEGIN 
74 
5064 75 
3203 76 Loop over all allowed terminators in this context. 
2067 28 INCR I FROM QO TO .TERM_LISTC-1) - 1 DO 
5069 80 TERMPTR = .TERM_LISTC.1] + TABLEBASE; 
in ; 
208 He ! Check whether this terminator matches what we have in the input 
3007 rf Line being scanned. 
2073 86 CHECK THIS_TERAINATOR: 
5077 88 IF CHSNEQ(. TERMPTRCTOKENSB LENGTH], TERMPTRCTOKENSA_NAME], 
078 8 - TERMPTRCTOKENSB_LENGTH], .CHARPTR, 0) 
4 
33 


CHRTBLSV_ALPHABETIC] AND 
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THEN 
LEAVE CHECK_THIS_ TERMINATOR; 

IF _.TERMPTRCTOKENSV_BALANCED_PARENS) AND (.PAREN_NESTING NEQ 0) 
LEAVE CHECK_THIS_TERMINATOR; 
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GPARSER 18-5¢ -1984 02:10: AX-11 Bliss-32 V4.0-74 P 77 0 
voe-000 1e-38b-198e 93:19:30  ¥dkaus. SkcSbcPansén.o3s. 1 29° (23) \ 
; 5 5 IF . TERMPTRCTOKENSV_MUST B NGLE] AND : 
; 5 (. CHARPT 85 EQL MERARPTREL 5 : 
; LEAVE CHECK_THIS_ TERMINATOR; 3 
: $1 1) ! This is @ valid terminator in this context. As a side-effect ; 
; 31 \§ ! save the terminator code in TERMINATOR_CODE and its Length in : 
: : ¢ 1? } TERMINATOR_LENGTH. Then return the terminator operator. : 
> $106 15 TERMINATOR_CODE = .TERMPTRETOKENSW_CODE3; F 
; 5105 1 TERMINATOR-LENGTH = . TERMPTRCTOKENSB_LENGTH); ; 
3 ; RETURN TERMINATOR_TOKEN; : 
; 108 13 4 END; ! End of CHECK_THIS_TERMINATOR block 3 
: 119 1 END; ! End of INCR Loop over terminators ; 
: 1g : END; ! End of terminator checking F 
Bia 3 
: 5115 : $ ! Handle any Languapensper tre special cases that must be sorted out before ; 
3 3138 H ! we go through the normal lexical scanning code below. Here we check for : 
3; 511 8 ! those tokens that would be scanned incorrectly if we went through the : 
3 18 2 normal scanning mechanisms below. : 
> 5120 1 if .CHARTBLC.CHARPTRCOJ, CHRTBLSV_SPECIAL_CASE) ; 
; 21 ; : THEN BEGIN 
; 3 § ; ; CASE POSTER JANOS FROM DBGSK_MIN_LANGUAGE TO DBGSK_MAX_LANGUAGE OF : 
; 3 5 ; 
; 5126 ; 
3; 5127 2 8 ! Handle PL/I. Here we special-case the -> operator. We need to é 
; 5128 5239 ! mark ‘'-"' as being a Staptoneheres ter operator in the character 3 
; 5129 5240 ! table so it does not get combined with itself or other operator : 
; 31 2 a4 : characters in expressions. Hence we must special-case the one ; 
3 ; 1 ri} } situation where it can be combined, namely in ‘'=>"’, : 
i 3 g ; 44 § Coecsk pL]: 3 
> 5135 46 5 IF (.CHARPTRCO] EQL '=") AND (.CHARPTRE1) EQL '>') ; 
3; $1 47 & THEN : 
3 51 48 BEGIN : 
3; 51 49 CHARPTR = .CHARPTR + 2; : 
: 5139 50 RETURN PLI_ARROW_TOKEN; : 
3; 5140 51 4 END; : 
; 149 3528 3 END 
> 514 54 ‘ ; 
3 5146 ; 2? ; 
3; 5145 $ ! There are no special cases for any other sanguege If we get i 
3 4 5 ; here, something is wrong (the code or character table is wrong.) 
; 5148 35 CINRANGE, OUTRANGE}: ’ 
3 13? H $9 $DBG_ERROR( "DBGPARSER\LEXICAL_SCANNER 10°); : 
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TES; | 
END; 
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WW 


If the next token is one of the ‘‘special"’ 2"toke “eo v2 oo 
and an operand is expected here, see if this token 

could mean “current location’, “current value’, or ‘‘previou 

location’. If so, return the ag cor iete Identifier Lexical Token Entry 
but change the name to ZCURLOC, ZCURVAL, or ZPREVLOC. 


ae EXPECTED AND .CHARTBLC.CHARPTR(OJ, CHRTBLSV_SPECIAL_SYMBOLJ 


Lee ee ed 


BEGIN 

CHARPTR = .CHARPTR 

WHILE .CHARTBLL. chatPt ACO}, CHRTBLSV_SPACE] DO 
CHARPTR = .CHARPT 


' Handle the special case where the user has said 
! SET mF - vO ¢ command-List). In this case we assume that 
: the means ‘‘current location’. 


IF .DBGSGB_SET_BREAK_FLAG 
THEN 


AND 


BEGIN 
IF (. eet’ ce QL 'D 
(. CHAR *O") AND 
* *) OR (.CHARPTR(2] EQL °(")) 


EQL 
((.CHARPTRE2) EQL 


THEN 
RETURN CURLOC_TOKEN; 
IF (.CHARPTRCO) EGL ‘W'S AND 
(.CHARPTRE1] EQL *H') AND 
(.CHARPTRE2] EQL °E") AND 
(.CHARPTRE3) EQL °N") AND 
((.CHARPTRL4) EGQL ' *) OR (.CHARPTRE4) EQL '(")) 


THEN 
° RETURN CURLOC_TOKEN; 


We need to determine whether this special symbol is really one 
of the debugger permanent symbols for previous, current, or next 
location, or whether it is a language operator. 


FERSSSELS PRT SSE NOPE N SLITS LS ON SSE OF 


PEP AAA AAAI BE BB BE PN & FAA NII NII IIOP RININIPUNINITUWIW 


tot 


r *\"*, the only other possible moaning is as the start of a pathname. 
sl the middle, since then ‘‘OPERAND EXPECTED’ would be false). 

In tha,case. the next character must be the start of an identifier 
or a % n ZNAME. So in order to 

ntepret N - yee value, we check, here that the next, token 

is not the start of an identifier or a (Note = in C, is 

- operator, so for example ‘\Z5"" means “current location mod 7 

o C is special-cased below). 


*“**" is an operator in some languages. The only one where it is 
a prefix operator (the case that causes end iquities) 
7s PLI, where it means ‘‘not’’. We resolve this by simply 
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1 assuming thet e 4 means previoc if this is_an address jcupreseten. 
and mean s ‘not in a lang guage expression. This essential 4 
pteos ont - tor previer n language expressions (ZPREVLOC can 
be used instead). 


~.* to tf nly over Loaded. In many Languages it can be the start 
. é. yt on ate nt —, J we check for the next character 
re also be the indirection operator 
tok, address enprest on. ove check for the next character being 
or ‘\"", and if so, assume that the dot means 
uslveiotes and not current location. 


if (NOT .CHARTBLE. Sianerat 83: CHRTBLSV_IDENT_START]) AND 
("Case Waa ToLe et CHARPTR CHRTBL$V_DIGIT]) AND 
:DBG$GB LANGUAGE Fou ODBGSK. C AND (NOT .ADDRESS_EXPRESSION))) 


WN —O OOnNOufSun—O/0 


uw 


BEGIN 
IF .$T staaretagoy‘t EQ. \ THEN RETURN CURVAL_TOKEN; 
0 DBGSGB_ LANGUAGE NEQ Bask _PLI) OR .ADDRESS_EXPRESSION) 


RETURN PREVLOC TOKEN: 
IF PE Dar hp J Ha 
itor nt i 
C EHARPTR EQL i" ») 
RETURN CURLOC_TOKEN; 
END; 
CHARPTR = .STARTPTR; 
END 


: If we are expecting an operand next, check for the spec tat DEBUG symbols 
! that begin with a percent sign ‘2"'. This includes ZLINE, ZLABEL, ZNAME, 
and all the register names. 


if (.CHARPTROO) EQL °%") AND 
: XPECTED AND 
Oe cena nantes CHRTBLSV_ALPHABETIC 


N 
BEGIN 


50 


: Accumulate the identifier after the ‘'%''=sign. 

CHARPTR = oe Tete + 1; 

TOKENBU 

WHILE . CenanTOCE ~guanbracoy, CHRTBLS$V_ALPHABETIC) OR 
- CHARTBLE.CHARPTR CHRTBLS$V_DIGIT 


peern 
TOKENLEN = .TOKENLEN ¢ 1; 
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JOCENAUFFERE.TOKENLEN} = . CHARPTRCOI; 

CHARPTR = . CHARPTR 


TOKENBUFFERCO] = .TOKENLEN; 


: Now look up the “‘Z'-symbol in the DEBUG Percent Table. 


INDEX = PERCENT_NOFIND; 
a TO .PERCENT_TABLEC-1] - 1 DO 


NAMEPT -PERCENT_TABLEC.1] + TABLEBASE; 
If CHSEOLC: [NAMEPTRE1), NAMEPTRE2], .TOKENLEN, TOKENBUFFERC1), 0) 
BEGIN 
INDEX = .NAMEPTR(O); 
EXITLOOP; 


Now do whatever further processing is appropriate for this ‘'%''=symbol. 
EASE. INDEX FROM PERCENT_NOFIND TO PERCENT_IDENT OF 


! Handle the No-Find case. We do not recognize this ‘'%'’-symbol, 
: so we do nothing. 


CPERCENT_NOF IND}: 


' Handle ZLINE and ZLABEL. Here we pick up the Line or Label 
i number that follows the keyword and construct an Identifier 
Token Entry for the Line or label and return that to the caller. 


CPERCENT_LINE, 
PERCENT LABEL): 
BEGIN 


Set up the fully spelled out keyword (ZLINE or ZLABEL) in 
TOKENBUFFER and set up the appropriate error message code. 


- INDEX EQL PERCENT_LINE 


BEGIN 

CHSMOVE(6, UPLIT BYTE(ZASCII “ZLINE *), TOKENBUFFERL1)); 
TOKENLEN = 

ERRORMSG = DAGS_SYNERRLINE; 
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Chgnay (7, YPLIT BYTECRASCII *ZLABEL '), TOKENBUFFERC13); 
ERRORASG = pbcs _SYNERRLABEL; 


J 
| 
| 
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Mew 
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' Check for and scan past the blanks after the ZLINE or %LABEL 
keyword and before the Line or Label number. 


if NOT . CHAR TBD CH -CHARPTRLOJ, CHRTBLSV_SPACE] purer SIGNAL (.ERRORMSG) ; 
WHILE .CHARTBLE.CHA nerat £0}. CHRTBLSV_SPACE 
CHARPTR = ,CHARPT 
: Check that a digit follows. Then strip off leading zeroes. 
if NOT .CHARTBLC.CHARPTRCOJ, CHRTBL$V_DIGIT 
SIGNAL (. ERRORMSG) ; 


WHILE (.CHARPTROO) EQL '0*) AND 
-CHARTBLC.CHARPTRC1), CHRTBLSV_DIGITI 


CHARPTR = .CHARPTR + 1; 


! Now pick up the Line or Label number and copy all the digits 
into TOKEN UFFER. 


WHILE .CHARTBLC.CHARPTRLOJ, CHRTBLS$V_DIGIT] DO 


IF .TOKENLEN GEQ 255 THEN SIGNAL ( .ERRORMSG) ; 
OKENLEN = . TOKEN 

TOKENBUF FERC. TOKENLEN} = * \CHARPTR(O); 
CHARPTR = .CHARPTR 


PAAAAAAVIUIN SESE SSO 
DWONOUVE WN "OO VDBNAUEWN O00 VEFWN—OOONOUS UT 
Py oY LY a a et at a te 
WAV oP a? a? a? ot at et ot et 
= we 


! If we are picking up a Line number, we, also allow a dot 
followed by @ statement number (e.g., %LINE 10. 2). Pic 


1 
366 47 k up 
rth the statement number if present. 
5 47 if (. INDEX EQL PERCENT_LINE) AND (.CHARPTRCO) EQL *.*) 


r~ 
o 
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47 THEN 
478 BEGIN 
479 
9 480 
4 n 1 : Check for valid syntax and pick up the dot. 
7 4 § it inet .~CHARTBLC. cuanpTRcty. CHRTBLSV_DIGITJ) OR 
7 4 (. TOKENLEN GEQ 255) 
74 485 N 
o r SIGNAL ( ERRORMSG); 
8 4 TOKENLEN = .TOKENLEN + 
378 4 TOKENBUFFERL. OOREHEENS s°*.*; 
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CHARPTR = .CHARPTR + 1; | 


Strip off leading zeroes. 


WHILE (.CHARPTRCO) EQL (0) AND 
-CHARTBLC.CHARPTRE1), CHRTBLS$V_DIGITI 


CHARPTR = .CHARPTR + 1; 


} Pick up the statement number itself. 
WHILE -CHARTBLL.CHARPTREOI, CHRTBLS$V_DIGITJ DO 


F .TOKENLEN GEQ 255 THEN SIGNAL(.ERRORMSG); 
OKENLEN = .TOKENLEN ¢ 1; 
TOKENBUFFERL.TOKENLEN] = .CHARPTRCOJ; 
CHARPTR = .CHARPTR + 1; 


MEW 


END; 
! We now have a complete ZLINE or ZLABEL name string. Create 
and return an Identifier Token Entry for it. 


TOKENBUFFERCO) = .TOKENLEN; 
RETURN CREATE _OPERAND_TOKEN(TOKENSK_IDENTIFIER, TOKENBUFFER); 


END; ! End of ZLINE and %LABEL processing 
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! Handle ZNAME. Here we pick up the identifier symbol that follows 
(directly or in quotes) and return an Identifier Token for it. 


(PERCENT NAME): 
BEGIN 


ARIPIPINIPONIMUNININ 2 ee 


' Scan past any blanks after the ZNAME beruere and before the 
actual name string itself. Then set STARTPTR to that place. 


WHILE ,CHARTBLE .CHARPTREOI, CHRTBL$V_SPACE] DO 
CHARPTR = .CHARPTR + 1; 


STARTPTR = .CHARPTR; 

! If the name string starts with a quote character, pict up all 
characters in the quoted string and move them to TOKENBUFFER. 
IF .CHARTBLC.CHARPTRLOJ, CHRTBL$V_STRING_QUOTE) 


THEN 
SCAN_QUOTED_STRING(TOKENBUFFER, TOKEN_TYPE) 
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-Sep-19 DEBUG. SRC JDBGPARSER .832;1 \ 
3; 54 47 4 ! Otherwise, pick up ony consecutive string of characters which 
; 54 48 4 ' are is anywhere in identifiers. For most weap 
; : 3 4 ? : this is any string composed of A- 72, 0 - 9, $, and .. 
3 5440 4 ELSE 
3 3441 i BEGIN 
3 544 WHILE .CHARTBLE.CHARPTR 9 , CHRTBLSV_IDENT_START]_ OR 
: 544 54 ~CHARTBLE..CHARPTRLOJ, CHRTBLSV-IDENT-MIDDLEJ OR 
; tte 55 -CHARTBLE.CHARPTRLOJ, CHRTBLSV_IDENT_ENDJ 
; 44 228 CHARPTR = .CHARPTR + 1; 
; 448 339 TOKENLEN = .CHARPTR = .STARTPTR; 
> 5449 60 IF_.TOKENLEN EQL 0 THEN SIGNAL (bBGS NAMSTRIIS) ; 
: 5450 561 CHSMOVE(.TOKENLEN, .STARTPTR, TOKENBUFFERL1)); 
3; 5451 206 TOKENBUFFERCO)] = .TOKENLEN; 
3 128 5635 4 END; 
3; 545 564 4 
3 5454 565 4 
3 $2? 3288 2 Create and return an Identifier Token Entry for the symbol. 
; ie i ? RETURN CREATE_OPERAND_TOKEN(TOKENSK_IDENTIFIER, TOKENBUFFER); 
: 5459 570 END; ! End of %NAME processin 
: 5460 5571 maces 
3 Fred 26 } 
3 rr 557 ! Handle "'Z''=symbol names that we recognize as identifiers. This 
3 sce? 2278 : includes all the register names. Return an Identifier Token. 
; 5i65 3376 CPERCENT_IDENT): 
Hy re) 3270 RETURN CREATE_OPERAND_TOKEN(TOKENSK_IDENTIFIER, TOKENBUFFER); 
: 5468 5579 
3 5469 5580 ! Handle the ZDEC operator. This sets the radix to decimal for 
: rth 326) : the expression which constitutes its operand. 
> 547 2285 CPERCENT_DEC): 
3; 547 5584 RETURN RADIX_OP_DEC; 
3; 5474 228? 
3; 5475 586 
3; 5476 5587 ! Handle the ZHEX operator. This sets the radix to hexadecimal for 
3 rth 2258 } the expression which constitutes its operand. 
: 5479 3390 CPERCENT_HEX): 
; 5480 591 RETURN RADIX_OP_HEX; 
3; 5481 238 
3 rt 1 59 
3; 54 594 ' Handle the ZOCT operator. This sets the radix to octal for 
3 seee 2292 } the expression which constitutes its operand. 
; 5c86 299 CPERCENT_OCT): 
> 548 598 RETURN RADIX_OP_OCT; 
3; 5488 599 
: 5489 600 J 
3; 5490 601 ! Handle the ZBIN operator. This sets the radix to binary for 
3 43) one } the expression which constitutes its operand. 


N11 | 
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493 CPERCF ~ BIN]: 

494 he \URN RADIX_OP_BIN; 

13? 

437 } Any other CASE index is an internal DEBUG error. 


CINRANGE, OUTRANGE]: 
$DBG_ERROR('DBGPARSER\LEXICAL_SCANNER 20°); 


TES; 7 | 
! This is the end of the ‘%'’=symbol processing, If we have not recog- 
: nized the symbol yet, it is not a DEBUG special symbol so we reset 
! CHARPTR to point to the ‘'%' n again. The hope is that we will 
: recognize it as a valid token later in the Lexical Scanner. 


CHARPTR = .STARTPTR; | 
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END; ! End of ‘'R''=symbol scanning 


See if this token is a pees character string. Quoted character strings 


WWRIRIMMNMNNNNN 2 A QOOOOO 
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; 5 

: ; 

33 5 

; 5510 5 

3 5511 5 

33 \¢ 5 

3 35% 5 

3 5514 5 

3 3919 5 : 

; 5516 5 § ! in this context are defined to start with a quote character (usually "’ or 
3; 5517 5 ! *), to continue as a etring of zero or more non-quote characters, and to 
; 5518 5 ! be terminated by a quote character. The starting and oneung quote char- 
3; 5519 5 ' acters must be the same character and that quote character is represented 
; 5520 5 ! within the string by two consecutive quote characters. If we find such 

; 2 $i 2 ; @ quoted string, we accumulate it and return a String Constant Token. 
3% § 563 IF _.CHARTBLC.CHARPTRLOJ, CHRTBL$V_STRING_QUOTE] | 
3: 5524 563 THEN 

3; 5525 563 BEGIN 

3; 5526 563 SCAN_QUOTED_STRING(TOKENBUFFER, TOKEN _TYPE); 

; 5527 563 RETURN CREATE_OPERAND_TOKEN(.TOKEN_TYPE, TOKENBUFFER); 

; 5528 5639 2 END; 

Be ae 

3; 5531 564 ! See if this token is a numeric constant. If so, we pick up the character 
33 3 564 $ fepresentatten of the number and return it as a Numeric Constant Lexical 
; 553 564 ! Token Entry. This scan must be done before the Identifier scan below so 
3 a2ee é 1 : that COBOL integers get interpreted as numbers, not identifiers. 

3 2299 5647 ! This code simulates a Finite-State Machine (FSM) which accepts any valid 
; 22% 5648 ! numeric constant in the current language. The machine is defined by a 

3; 5538 5649 ' state table where each state has a set of allowed transitions to other 

3; 5539 5650 ! states. Each transition is selected by the next input character and has 
; 5540 5651 ! an associated action routine defined below. When a numeric constant has 
3 5541 2636 ! been recognized, a transition is taken whose action routine builds and 

g 2266 263? } returns a Lexical Token Entry for the numeric constant. 

: Hh 5655 IF .CHARTBLC.CHARPTRCO), CHRTBLSV_NUMBER START] AND 

3; 5545 626 ( (NOT .ADDRESS_EXPRESSION) OR T.CHARPTRCO) NEQ *.*)) 

3 e208 65 THEN 

3 554 658 BEGIN 

3; 5548 5659 

3; 5549 5660 
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0 1 ' Start at the Start State for the Finite-State Machine that will scan 
1 ! the number according to the rules of the current language. This 
¢ ! start state is ordinarily zero. If the Language is ADA and the radix 
664 ! is not decimal, however, we start at the B_START_STATE, which is 
665 ! the entry to the eo of the ADA number scanner that picks up 
5 +¢ ' based numbers. Also, set up the initial number kind based on the 
$ ret current radix setting assuming it will be an integer. 
: 669 STATE_INDEX = 0; 
If (.BBGSGB_LANGUAGE EQL DBG$K_ADA) AND 
o (.EXPRESSION_RADIX NEQ DBGSR_DECIMAL) 
o¢ STATE_INDEX = REMEMBER_ADA_B_START_STATE; 


NUMBER _KIND = TOKENSK_INTEGER; 
If gEXPRESSION RADIX EQL DBGSK_HEX 


NUMBER_KIND = TOKENSK_HEX_INTEGER; 
iA EWPRESSLOR WOOIE EQL DBGSK_OCTAL 

NUMBER_KIND = TOKENSK_OCT_INTEGER; 
-EXPRESSION_RADIX EQL DBGSK_BINARY 

NUMBER_KIND = TOKENSK_BIN_INTEGER; 
BACKUP_NUMBER_KIND = .NUMBER_KIND; 
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; 
: 8 
2 691 ! Then loop through the machine states, selecting each next state based 
5 one : on the next input character and performing the appropriate action for 
H 237 : each transition, until the whole number is picked up. 
5 695 WHILE TRUE DO 
5 696 BEGIN 
; is 
699 : Get the character class code for the next input character. 
: 700 ! Small kludge for ADA: In XC1..5], we want to treat *’..' 
8) as terminating the ‘1’, not as part of the number. 

3 08 CLASS = .CHARTBLC.CHARPTR(O), CHRTBLSV_NUMBER_CLASS); 
; 3788 a PO6SEE LANGUAGE EQL DBGSK_ADA 

+4 3708 ir -CHARPTRCO) EQL *.* AND .CHARPTR(1) EQL *.* 

97 708 CLASS = NUMSTSK_CLASS_OTHER; 

et 
5600 711 ! Loop through the transitions from this state until we find a 
5601 ar ! transition for this character class or for NUMSTSK_CLASS_OTHER 
2008 71 ! (the class of all other characters). Pick up the action index 
60 5714 ! and next state associated with this transition of the Finite- 
2088 aR State Machine. 
5606 3719 WHILE (.STATE_TABLEC.STATE_INDEX, NUMST$B_CHAR_CLASS) NEQ 
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; 
5 
; 
: 
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ie 
SF 
5637 
638 
639 
640 
i 
i 
5644 
5645 
5646 757 
5647 758 
5648 759 
5649 760 
650 761 
651 166 
$36 76 
65 64 
654 765 
655 66 
2626 767 
65 76 
5658 ? 
2022 770 
660 771 
$003 77 
666 77 
566 774 
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NUMS TSK gLASS OTHER) AND 
(.STATE_TABLEC.STATE_INDEX, NUMSTSB_CHAR_CLASS] NEO .CLASS) 


STATE_INDEX = .STATE_INDEX + 1; 


ACTION = ,STATE_TABLEL.STATE_INDEX, NUMSTS$B_ACTION); 
STATE_INDEX = .STATE_TABLEC.STATE_INDEX, NUMSTSW_NEXT 


14-Sep-1984 


STATE]; 


' Case on the action code to select the appropriate semantic 
} action routine for this state transition. 
CASE -ACTION FROM NUMSTSK_MIN_ACTION TO NUMSTSK_MAX_ACTION OF 


! Some state transitions require no semantic action, so we 
provide a do-nothing action routine. 


ENUMSTSK_ACT_DO_NOTHING]: 


! Go past a digit in the integer part of the number. Set the 
digit backup pointer to the last good digit seen (this one). 


CNUMST$K_ACT_GO_PAST_DIGIT): 
BACKOP_DIGIT_PTR™= .CHARPTR; 


! At the decimal point, mark that we have a floating-point 
} number. 


{NUMSTSK_ACT_MARK_DEC_PT): 
NUMBER_KIND =" TOKENSK_FLOATING; 


At a fraction digit, set the backup pointer to the last good 
digit seen (i.e., this one) and note that we really have a 
floating-point number even if we must back up the scan. 


{NUMSTSK_ACT_GO_PAST_FRAC): 
BEGIN 


BACKUP_DIGIT_PTR = .CHARPTR; 
PACKUP_MURGER_KIND = TOKENSK_FLOATING; 


: Mark that we found an E exponent marker. 
CNUMSTSK_ACT_MARK_E_EXP): 

NUMBER_KIND =" TOKENSK_EXP_E_FLOAT; 
} Mark that we found a D exponent marker. 
CNUMSTS$K_ACT_MARK_D_EXP): 
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vi 18-Sep-1986 95:19:13 DEBUG. SRC JDBGPARSER. B35; 31 tt JY 
; 56646 775 4 R_KIND = T P : 

: eee 778 , NUMBER_KIND = TOKENSK_EXP_D_FLOAT 

3 a rt 2 } Mark that we found a G exponent marker. 

: 780 4 tNUNSTSK ACT_MARK_G 

; ero f 2 NUMBER_KIND = “Foktn kK EXP_G_FLOAT; 

: 567 783 4 

; ers g : 2 } Mark that we found a Q exponent marker. 

: 5675 7 g 4 tNUMSTSx ACT_MARK_Q EXP): 

: 567 7 4 NUMBER_KIND =" TOKEN K _EXP_Q_FLOAT; 

: 3ef rB5 

: 6 790 4 ' At a pack decimal digit, eet the back ointer to the last good 
3; 5680 791 & ; digit’ seen (1 i.e., this one) and note that we really have a ’ 
: ret P35 ? ; pack etal Scher even if we must back up the scan. 

; 3683 794 4 EMums Sx ACT_GO_PAST_PACK): 

: S685 3796 BACKUP DIGIT PIR = .CHARP 

; 5686 5797 6 IF (.NUMBER_KIND EQL TOKENSK _HEX_INTEGER OR 

3; 5687 798 6  AURBER “KIND EQL TOKENSK “OcT_ INTEGER OR 

: on 4 44 5 we «NUMBER_KIND EQL TOKENSK_BIN_ INTEGER) 

; 5690 5801 BACKUP_NUMBER_KIND = TOKENSK_PACK_DECIMAL; 

Bo we - 

: 569 5804 4 

3; 5694 5805 4 ' At a pack decimal digit, set the backup pointer to the last good 
; 5695 5806 4 ! digit seen (i.e., this one) and note that we really have a 

: $98 at ? pack decimal number even if we must back up the scan. 

; 3698 3809 4 CUMS TSK ACT_GO_PAST_PACK_FRAC): 

; $80 5811 2 BACKUP_DIGIT_PTR = .CHARPTR 

: 5701 281g 6 IF NOT” (.NUMBER_KIND EQL TOKENSK _HEX_INTEGER OR 

3 re 2 1 6 SINURBER “KIND EQL TOKENSK_OCT_ INTEGER OR 

; 3704 agie g THEN NUMBER “KIND EQL TOKENSK_BIN_ INTEGER) 

; 705 B16 5 BACKUP_NUMBER_KIND = TOKENSK_PACK_DECIMAL 

; 709 318 BACKUP_NUMBER_KIND = TOKENSK_FLOATING; 
ine oe 

: 5711 B22 4 

: 27t¢ 5 4 : We have a mumps but we scanned too far. Thin oo happen in 
: a 4 4 : FORTRAN with "25.EQ.°° where we pick up the ‘’."* and since 
3; 5716 5 4 ' that could be part of a number. Back the scan ant to 
3 5715 826 4 ' the true end of the number and return the appropriate Numeric 
; rig i ? : Constant Lexical Token Entry. 

; 718 9 4 NUNS TSK ACT_BACKUP_PTRS): 

; 5720 5831 3 NUMBER_KIND = .BACKUP_NUMBER_KIND; 


} 
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| 
IG1T, PTR + 1: 
5 THEN SIGNAL (D8GS_ NUMCONLONG) ; 


721 1 CHARPTR = .BACKUP_D 
TOKENLEN = .CHARPTR = 
F .TOKENLEN gt R 25 
5 OKENBUFFERCO] = . TOK 
CHSMOVE(.TOKENLEN, .STARTPTR, TOKENBUFFERC1)) 
RETURN CREATE _OPERAND_TOKEN( .NUMBER_KIND, TOKENBUF FER); 


We have a complete and valid numeric constant. Create a 
Numeric Constant Lexical Token Entry for it and return a 
pointer to that Token Entry to the caller. 


to thd 
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7 ; 
7 ; 
7 3 
7 : 
7 : 
7 ; 
, ; 
, ? : 
; 
7 5 NUMSTSK_ACT_GOT_NUMBER): ; 
7 6 BEGIN : 
7 TOKENLEN = _CHARPTR = .STARTP : 
7 848 ; TOKENLEN N GTR 23 255 THEN $1GNAL (DBGS _NUMCONLONG) ; ; 
7 9 TOKENBU FFERLO OKENL : 
739 850 CHSMOVE (. TOKENLEN, soe eAnePtR, TOKENBUFFERC1}); : 
740 831 RETURN CREATE _OPERAND_TOKEN(.NUMBER KIND, TOKENBUFFER) ; : 
Oe | : 
744 855 ! We have a complete and valid pack decimal constant. Create a ; 
745 S28 ! Numeric Fonstont Lexical Token Entry for it and return a 3 
me tH ; pointer to that Token Evitry to the caller. : 
748 icp CNUMSTSK ACT_GOT_PACK NUMBER]: 3 
750 1 IF NOT (.NUMBER_KIND EQL TOKENSK_HEX_INTEGER OR ; 
751 86¢ -NUMBER“KIND EQL TOKENSK~OCT— INTEGER, OR : 
3¢ 863 lena -NUMBER-KIND EQL TOKENSK~BIN~ INTEGER) F 
754 865 NUMBER_KIND = TOKENSK_PACK_DECIMAL; : 
756 867 TOKENLEN = .CHARPTR = .START 

757 8 IF .TOKENLEN GTR 25 255 THEN SIGNAL (DBGS_ NUMCONLONG) ; 

758 9 TOKENBUF FERCO NL 

759 0 SMOVE (. TOKENLEN, roe at ePiR, TOKENBUFFERL1)) 

760 1 RETURN CREATE_OPERAND_TOKEN( .NUMBER_KIND, TOKENBUF FER) : 

76 5 ‘ 


76 
64 ! This is not a valid numeric constant. Back up CHARPTR to the 
: start of the lexical token and exit the Number Scanner code. 
CNUMS TSK ACT_NOT_NUMBER): 

CHARPTR = .STARTPTR; 

EXITLOOP; 

END 


. 
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: In cobol, 12A will be a name if the mode setting is not hex. 
CNUMSTSK_ACT_COB_CKHEX): 
BEGIN 
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14-Sep-19 DEBUG. SRC JDBGPARSER.B 
—<— RADIX NEQ DBGSK_HEX 


33 


7 
7 9 BEGIN 
7 9 CHARPTR = ,STARTPTR; 
; 3% ENDS 
‘ 0 
: 3 
, 3 
7 ! In COBOL, a number such as 123 can be a name. Such a name 
789 ' must be wpeeres dot ZNAME 123. fpuever, if we fi nga a number 
1 ! followed «ae lid Woeutifier character, as in 123A or 12-3, 
791 90 ' then ve actual ly have an identifier, so we exit the number 
re 90 ! scanning Loop without returning a number token. If the 
79 904 ! number ended with any other character, we return a valid 
905 } number token. 
309 CNUMSTS$K_ACT_COB_CKNUM]: 
908 BEGIN 
909 T_START] OR 


» CHARTBL 
- CHARTBL 


-CHARPTR 


Vv 
CHRTBLSV 
-CHARPTR Vv 


IF .CHARTBLE.CHARPTR 0}. CHRTBLSV_IDEN 
QJ, IDENT-MIDDLEJ OR 
OJ, CHRTBL$V~IDENT_END) 


EGIN 
Sit = .STARTPTR; 
a LOOP 


eS a 


MEW 9 ODNO VF WIN" O OONOUS WO 


IF NOT ((, apts KIND EQL TOKENSK_HEX_INTEGER) OR 
(.NUMBER-KIND EQL TOKENSK_OCT-INTEGER) OR 
THEN CINUMBER™ “KIND EQL TOKENSK-BIN~ INTEGER) 
NUMBER _KIND = TOKENSK_PACK_ DECIMAL; 


TOKENLEN = .CHARPTR = .START 
IF emer ret o33 THEN SIGNAL (DBGS ~-NUMCONLONG) ; 


OKE 
CHSMOVE (. TOKENLEN, roe eAnGPiR, TOKENBUFFERC1)); 
RETURN CREATE_OPERAND_TOKEN(.NUMBER_KIND, TOKENBUFFER); 


Seer it erereh 


FUNSSSSSNERRONLSSaNen Sun-o 


' Save the base of a number in ADA, where a number can be 
i of the form base#number. 


CNUMS TSK AC rol _ SAVE _BASE): 
' 


DWDODOOODOOOVO DODO OOOO OODOODOODOODOODOONOVNO 


Ww 


: Any other action index constitutes an internal error. 
CNUMSTSK_ACT_GIVE_ERROR, 
INRANGE 


OUTRANGE): 
$DBG_ERROR("DBGPARSER\LEXICAL_SCANNER 30°); 
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3 3¢$ 4 TES; 

; 4 

; 948 4 

3 zh 2 : Go on to the next character in the buffer and Loop. 

; 9 4 ‘ CHARPTR = .CHARPTR + 1; 

3 ‘ ; § END; ! End of WHILE loop over number states 
; ¢ ; ‘ END; ! End of numeric constant scanning 

; 9 

; 5 $54 ' See if this token is an identifier aqcoreia to the rules of the current 
3 8 95 : cenguepe. If so, pick up the whole identifier, see if this identifier is 
3 9 960 ' actually an operator (such as AND or MOD) in the current Language, and 

3 4 +d : return either an Identifier Token or an Operator Token. 

; 26 368 iF .CHARTBLC.CHARPTRCOJ, CHRTBLSV_IDENT_START] 

3 964 THEN 

3; 5854 965 BEGIN 

GBS 

; 3 968 ' We have a valid start character for an identifier in the current 

; 5858 969 ! Language. Now scan through the identifier as long as we have valid 
3; 5859 970 ' middle characters and set ENDPTR each time we find a valid end char- 
3; 5860 971 ' acter for an identifier. At the end of the scan we set CHARPTR to 

; $0) 376 point to the first character after the identifier end character. 

; bes 974 ENDPTR = .CHARPTR = 1; 

; 975 WHILE TRUE DO 

3; 5865 376 4 BEGIN 

3 ¥§] 5977 4 IF .CHARTBLC.CHARPTRCO), CHRTBLSV_IDENT_END) 

; He 2978 ¢ THEN cin 

; 2869 3980 ; ENDPTR = .CHARPTR; 

; 5870 981 IF NOT .CHARTBLL.CHARPTRCO), CHRTBLSV_IDENT_MIDDLEJ THEN EXITLOOP; 
3 587 2388 ? END; 

: B78 3984 4 CHARPTR = .CHARPTR ¢ 1; 

; 5874 985 4 IF (NOT .CHARTBLC.CHARPTRCOJ, CHRTBLSV_IDENT_MIDDLEJ) AND 

; 5875 3986 5 (NOT .CHARTBLC.CHARPTRCOJ, CHRTBL$V~IDENT—END)) 

; 8 987 4&4 THEN EXITLOOP; 

3 z . ; ND; 

: i CHARPTR = .ENDPTR + 1; 

; § 938 Copy the identifier name to TOKENBUFFER. 

: 5884 995 TOKENLEN = .CHARPTR = .STARTPTR; 

; 5 338 IF .TOKENLEN GTR 255 THEN SIGNAL(DBGS IDE NTL ONG) ; 

s 99 CHSMOVE(.TOKENLEN, .STARTPTR, TOKENBUFFER(L1)); 

; 8 338 TOKENBUFFERCO) = .TOKENLEN; 

; 6 

: 3890 6 ! If the Lenguege is C, then we want to make sure that the identifier 
; 5891 6002 ! preserves the original casing (upper/lower). This is because 
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§ ! in C, upper case i. is a different variable iron lower case xxx, 

9 ! for example. So ue copy way ote oh vr, the ors" nal command 

94 : butter instead © € stout onnend bu 

95 ! We = a Ai, & PAsine GNITTeANT” which bog set in the SET_LANGUAGE 

38 ; ne for this. At present, C is the only language that Sets 

° : th s flag to TRUE. 

3 iF .CASING_SIGNIF ICANT 

THEN 


Exe 


BEGIN 
IF (.STARTPTR LSS .DBGSGL_UPCASE COMMAND a atiabh OR 
~STARTPTR GTR .DBGSGL_UPCASE—COMMAND_PTR[1)) 


N 

$SDBG_ERROR( * DBGPARSER\DBGSLEXICAL_SCANNER 40°); 
NEW_STARTPTR = (. “DBOSGLO “boost. UetAet- COMMAND _PTR(OJ) + 
— . TOKENLEN, -NEWL “ST ARTPTR. TORENBUFFERC1}); 


SSeS5. 


See if this identifier is actually the name of an operator. We scan 
a language-specific operator table to determine this. If so, return 
the corresponding Operator Token. 


a 
aed ee 
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SSSSSSSSSSSSSSSSSSSSSSS 


910 

3 1 

318 

318 

9 

9 $ BEST TOKEN_F 

4 8 NC “sein ST TO = DENT _OPERATOR_TABLEC-1) - 1 DO 

920 OKEN = .IDENT_OPERATOR TABLet 1] + TABLEBASE; 

921 Ht: CHSEQL(. TOKENC TOKENSG_OPL 

3 ’ TOKENCTOKENSA TOPHARET: LE OKENLEN, TOKENBUFFERC1), 0) 
924 5 BEGIN 

925 IF (OPERAND EXPECTED 

9 $ (. TORE NETOKENSB “e1N0} fet TOKENSK_PREFIX_OP)) OR 
9 38 CCWOT “OPERAND EXPECTED 

, 3 0039 TOKE ENC TOKENS LIND) NNEQ TOKENSK_PREF IX_OP)) 
9 6041 RETURN .TOKEN 

3 , ren ELSE 

9 § 6066 BEST_TOKEN_FOUND = . TOKEN; 

3 5 g 3 END; 

4 Pairk ; 


END; 
If .BEST_TOKEN_FOUND NEQ 0 THEN RETURN .BEST_TOKEN_FOUND; 
' See if this identifier is the name of a built-in function. We scan 
ia sanquagewepes tite built-in function table to determine this. If 
so, return the corresponding Operand Token. 


BEST. TOKEN_F = 0; 
INCR ok J FROR BD .BIF_TABLEC-1] - 1 DO 
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TOKEN = .BIF TAB ] + TA 
If CHSEQI (. TOK att tNse LE 
= -TOKENLEN, TOKENBU 


If. OPERAND_EXPECTED 
RETURN . TOKEN 


ELSE 
BEST_TOKEN_FOUND = .TOKEN; 
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Peat 


IF .BEST_TOKEN_FOUND NEQ 0 THEN RETURN .BEST_TOKEN_FOUND; 


BEISSLIIILE. S 
COneou oO 


WODODODD0O00O 


t is not an operator or a built-in function. Hence we return an 
dentifier Token for the symbol. Note that we do not accept a 
ero-length identifier (one that has no valid end character). 

- TOKENLEN NEQ 0 

RETURN CREATE _OPERAND_TOKEN(TOKENSK_IDENTIFIER, TOKENBUFFER); 


END; ! End of identifier scanning 


Ry cee 


! See if this token is an operator symbol (such as +, *, /, or :=) in the 
current language. If so, return an Operator Token to the caller. 


iF ;,CHARTBLC.CHARPTREOJ, CHRTBLSV_OPCHAR) 
BEGIN 


! Determine where the operator symbol ends. By classifying the avail- 
094 i able operator characters as prefix, infix, or postfix characters, we 
6095 i can ensure that we break operator character strings apart at postfix- 
i infix, infix-prefix, and postfix-prefix boundaries. Ano ererer char- 
i acter which does not fall in any of those classes cannot combine 
with other characters and is always a symbol by itself (such as *("*), 


WHILE . CHARTBLC. Cott eg F CHRTBLSV_OPCHAR_PREF IX] DO 
CHARPTR = .CHARPT : 


WHILE ;CHARTBLC. Soar Ae p SLE ies dO 
CHARPTR = .CHARPTR 


WHILE .CHARTBLC. cuanere0), CHRTBLSV_OPCHAR_POSTFIX] DO 
CHARPTR = .CHARPTR 3 


IF .CHARPTR EQLU .STARTPTR THEN CHARPTR = .CHARPTR + 1; 


SSLESRENLS 


HEE 


: Copy the operator symbol to TOKENBUFFER. 


TOKENLEN = CHARPTR - .STA 
IF ; TOKENLE EN GIR ¢ 255 THEN S1GNAL(DBGS_ INVOPSYM) ; 
TOKENBUF FERLO OKENLEN; 
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: eli CHSMOVE(.TOKENLEN, .STARTPTR, TOKENBUFFERC1)); 

; 61 

3 6120 ! We now have an operator symbol in TOKENBUFFER ook it up in the 

3 i? 6121 ! operator table for the current Language, and if found, return the 

3 1 61 § : Fercesgending Operator Token. Note that we only eccare an operator 
3 i 61 : if it is a Primary operator (which we accept in both language and 

: He 2 ¢ } address expressions) or if we are in a language expression. 

: 6015 61 BEST_TOKEN FOUND = 0; 

: 1 ot $ i we) toon TO -OPCHAR_OPERATOR_TABLEL-1) - 100 

: 18 8} § 4 TOKEN = .OPCHAR_OPERATOR_TABLEC.1] + TABLEBASE; 

3; 601 61350 4 IF (. TOKENCTOKENSV_ PRIMARY] OR (NOT .ADDRESS_EXPRESSION)) AND 

; 6020 6131 4 CHSEQL(. TOKENCTOKENSB_OPLEN] 

: $8 ot § 2 nae TOKENC TOKENSA_OPNAME), -TOKENLEN, TOKENBUFFERC1), 0) 
3 60 6134 § BEGIN 

3 6024 6135 3 IF (.OPERAND_EXPECTED AND 

; 6025 61 (. TORENCTOKENSB_KIND] EQL TOKENSK_PREFIX_OP)) OR 

; 60 $ 61 6 ((NOT .OPERAND_EXPECTED) A 

; $0 f 6! $ X (. TOKENCTOKENSB_KIND] NEQ TOKENSK_PREFIX_OP)) 

3 60 6140 RETURN . TOKEN 

3; 6050 6141 . . 

; rast Pk — TOKEN_FOUND TOKEN 

3 Ss 3 

3; 60 : 6144 = % 

3; 60 6145 4 END; 

: 8086 re END 

3 603 6148 : 

; 6038 614 

3 $039 0139 ! If we found an operator but it is not in a valid context (e.g. infix 
3; 6040 6151 ! operator when we expect a prefix operator), we return it enyuey but 
3; 6041 ole¢ : onty if it cannot be an address expression operator (which might be 
: perk O17 valid in the current context). 

> 6044 giag if (.BEST_TOKEN_FOUND NEQ 0) AND 

3; 6045 0138 4 NOT (.ADDRESS_ EXPRESSION AND 

; ones oi? 4 aon -CHARTBLE.STARTPTRLOJ, CHRTBLS$V_ADDRESS_OP)) 

; 6048 6139 RETURN .BEST_TOKEN_FOUND; 

; rites get 

3; 6051 Oleg ! There is no such operator. Reset CHARPTR to point to the start of 
: 6036 2197 the token to give the code below a chance to make sense of it. 

; 6084 6165 CHARPTR = .STARTPTR; 

3; 6055 6166 

; e838 eles END; ! End of operator scanning 

3 605 61 

3 $089 $190 ' If we are parsing an Address Expression at present, we check for the 

3; 6060 6171 ' specific operators allowed in Address Expressions. We do not use the 

3; 6061 ole ! Langua e~spec fic rules for comb — operator characters in this case. 
3; 6062 617 ! If we find such an operator here, return the corresponding Token Entry. 


ARSER o-3 “19 27 AX-11 Bliss-32 V4.0-74 
vitae 16-$e0-198 95: 19: ¥ DEBUG. SRC JDBGPARSE et ie 
re 1 If mot, reset CHARPTR and continue through the Lexical Scanner. 
$ if, ADDRESS _EXPRESSION AND .CHARTBLC.CHARPTRLOJ, CHRTBLSV_ADDRESS_OP) 
8 BEGIN 
5 


: Special cases for C. 


H 61 
3 2 
3 1 
3 1 
3 1 
3 1 
; 6070 6} 
3; 6071 61 If (.D0BG$GB LANSASE .E 3 posse C) AND 
3 onrg 2 3 C-CHARPTR 0] EQL *=") AND ({CHARPTRE1) EQL '>") 
3; 6074 61 4 NBEGIN 
H 75 61 4 CHARPTR = .CHARPTR + 2; 
3 78 2 4 Ae C_ARROW_ TOKEN; 
3 e078 61 $ IF (. DBESGB LANGUAGE EQ DBGSK _C) AND 
3; 60 61 (.CHARPTRLO) EQL ‘# 
3 ope 0133 3 c. -OPERAND_EXPECTED ) 
3 6083 $138 4 BEGIN 
3; 608 6196 & CHARPTR = .CHARPTR + 1; 
3 epee 6195 & RETURN C INDIRECT TOKEN; 
3; 6085 ois END; 
3 6087 ois Check for all other address expression operators. 
3; 6089 6200 é a te = oGHAneTR 4 1; 
3; 6090 6201 BEST_TOKEN_FOUND = 
: 6091 é, 0¢ INCR7I FROM 0 TO “abbr _EXPR_OPTBL[-1] - 1 DO 
: $095 6203 4 Or GIN 
3; 609 6204 4 TOKEN = .ADDR_EXPR_OPTBLC.1) + TABLEBASE; 
3 6094 6205 4 IF CHSEQL(, TORENCTOKENSS OPLEN) 
3 6095 a 06 4 OKENC TOKENSA OOPNAMED, , STARTPTRIO], 0) 
3 SER oy 
3; 6098 6 $8 2 IF (. wens EXPECTED AND 
3; 6099 6210 ENCTOKENSB_KIND] EQL TOKENSK_PREFIX_OP)) OR 
3; 6100 6211 6 cinor OP ERAND EXPECTED) AND 
3 013) 6 1 (, TOKENCTOKENSB_KIND) NEQ TOKENSK_PREFIX_OP)) 
3; 61 § 621 THEN 
: URN .TOKEN 
61 6214 RETURN .TOKE 
: Bids reap ELSE 
3 N_FOUND = . H 
61 6 i$ BEST_TOKEN_FOUND TOKEN 
3; 610 6 18 
3; 6108 6219 4 END; 
3; 6109 6220 4 
+} rt os 
: alts 6 § IF .BEST_TOKEN TPR, NEQ 0 THEN RETURN .BEST_TOKEN_FOUND; 
3; 611 6224 CHARPTR = »STARTPT 
3 6114 6225 END; 
: Bite $559 
: or 6 3 ' So far we have not determined what kind of token we have here. We thus 
3: 6118 6 i enter some Language-specific code in a last-ditch effort to figure out 
3 6119 6250 ! what kind of token we have. If the Language-specific code can recognize 
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CASE... DBGSGB_LANGUAGE FROM DBGSK_MIN_LANGUAGE TO DBGSK_MAX_LANGUAGE OF 


WO 


! Handle Fortran. Here we pick up the operators of the form .XX. or 
! XXX. (such as .EQ., .NOT., etc.) and return the corresponding 

! Operator Token. These operators are looked up in the FORTRAN 
Special Operator Table. 
c 


DBGS$K_FORTRAN): 
BEGIN 


VIFWN—"OODONOus 


Check for . as indirection operator in address expressions. 


if .ADDRESS EXPRESSION AND .OPERAND_EXPECTED AND 
reg CHARPTR 0) EQL *.*) 


EGIN 
CHARPTR = .CHARPTR + 1; 
RETURN FORTRAN_INDIRECT_TOKEN; 


' See if we have one of the FORTRAN relational or boolean 
operators. 


WHILE .CHARTBLC.CHARPTRC1), CHRTBLSV_ALPHABETIC] DO 
CHARPTR = .CHARPTR + 1; 


CHARPTR = .CHARPTR + 2; 
INCR 1 FROM 0 TO .FORTRAN_SPECIAL_OPTBL[-1] = 1 DO 


TOKEN = FORTRAN SPECIAL_OPTBLC.1] + TABLEBASE; 
IF CHSEQL(.TOKENCTOKENSB_OPLEN], TOKENCTOKENSA_OPNAME], 
TCHARPTR = .STARTPTR, -STARTPTR, 0) 


PAAAOMMAMNMMNMUUIVIN ES BELLE 


THEN 
RETURN .TOKEN; 
END; 


WN —O OONOUESWN —“OVONOUS WO 0@ 


POPOPOPSPOPoToNoNny 


Pick up FORTRAN Predefined Constant. 
INCR I FROM 0 TO .PRIDTBLC-1) - 1 DO 
PRID = .PRIDTBLC.1] + TABLEBASE 


IF CHSEQL(.PRIDCPRIDSB_LENGTH), PRIDCPRIDSA_NAME), 
.CHARPTR = .STARTPTR, .STARTPTR, 0) 


un aha an ~ per) 
SSES SS ARON TSS SS APE oS Soe ws noo pas we Aro o oie Mun 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AA AAA AAAAAAAAAAAAAAAAA AH 
1090909 0909 SII SIS NINO AOA OO 


ee a ae ee a ce ae a cael ce ec cae ce ce ae ce a a a a a ce ee ce a ae et a a ce a a a ae ae ed oe a oe oe od od 
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AAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASAAOAAAAOAAOAAAAOOOAS 


RoPonofonononofoforofory 


THEN 
EGIN 
4 CHSMOVE (- PRIDCPRIDSB LENGTH} PRIDCPRIDSA_NAME], TOKENBUFFERC1)); 
5 TOKENBUFFERCO) = .PRIDCPRID$B_LENGTH); 
5 6 RETURN CREATE _OPERAND_TOKEN(TOKENSK_IDENTIFIER, TOKENBUFFER); 
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: Return as the FORTRAN record component selection operator. 
dF (Not -OPERAND_EXPECTED) AND (.STARTPTRCOJ EQL °.") 


APU OO 


GIN 
CHARPTR = ,STARTPTR + 1; 
RETURN FORTRAN. DOT TOKEN; 


Se EEE SS SES 


Handle C. Here we pick up the C operators prefix & infix &, 

infix 8&, prefix and postfix ++, prefix and postfix --, +, -, and =>. 
Possible ambiguities involving these operators must be 

resolved using C rules, which is what we do here. 


DBGS$K_C]: 
BEGIN 


Se 


MUA BE BAW BB BUI BB BWI WII WWIII POPOPUPUPUNUTULI ES B BE 


tn es ta a 2 a 4 _s 9 4 9 
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Co Tee 


! Check for the operators that begin with ‘&': address-of, 
! bit-and, and short-and. 


' 

IF .CHARPTRCO) EQL ‘8' 

THEN 

BEGIN 

CHARPTR = .CHARPTR + 1; 
IF .CHARPTRCO) EQL ‘8' 
THEN 


BEGIN 
CHARPTR = .CHARPTR * 1; 
A ag C_AND_TOKEN; 


o 
oo 


WWAWAWAIAAIW NIAAA NAIA 


IF .OPERAND_EXPECTED THEN RETURN C_ADDR_OF_TOKEN; 
acrun C_BIT_AND_TOKEN; 


PAAAAAAAAAAAAAAAAAAAPAAAAAAAASAAA AAAS AAA AAIAIAAA SH 
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' Check for the operators that start with ‘+’: add, pre-increment, 
and post-increment. (X+¥ +#X X++) 


if .CHARPTRCO) EQL ‘+° 
THEN 


MEwrn 


PDAEAAAAAAAAA AAA A AAA AAAAAAAAAA AAA AAAAAAAA AA AA AAA AAAAa SH 


PAA. ALAA 


N 
HARPTR = .CHARPTR + 1; 
cee en ReaD 
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3; 6 6345 

; 6235 6 rf] 

3; 6 634 !' Since ++ is not supported, put out an 
3; 6 6 rt ' error message to that effect. 

3; 6 634 ! If it does become supported then 
3; 6239 6 2 ' un=-comment the commented out code 
; ? me ? 2) H and take out the error signal. 

3; 6 tg 6 38 SIGNAL (DBG$_SIDEFFECT) 

3 624 6354 ' RETURN C_PRE_INCR_TOKEN 

3; 6244 6355 

3 6245 6 28 LSE 

; 6 re 6 SIGNAL (DBG$_SIDEFFECT); 

> 624 6358 1 RETURN C_POST_INCR_TOKEN; 

3 6248 6359 4 END; 

3 6249 6360 4 

3; 6250 6361 4 RETURN C_ADD_TOKEN; 

3; 6251 6 66 END; 

3; 6 28 636 

; 625 6364 7 

3 6754 6365 ! Check for the operators that start with ‘-": subtract, pre-decrement, 
3 0536 ° 66 and post-decrement, unary minus, and =>. 

3; 6257 368 IF .CHARPTRCO) EQL ‘-' 

; 6258 6369 THEN 

3; 6259 6370 4 BEGIN 

3; 6260 6371 4 CHARPTR = Meds #13 

3 6261 oars 4 IF .CHARPTR(OJ] EQL ‘-' 

3; 626 6373 4 THEN 

3; 626 6374 5 BEGIN 

3 6264 6375 5 CHARPTR = .CHARPTR + 1; 

3 ose? o278 5 IF .OPERAND_EXPECTED 

3: 6266 6377 5 THEN 

3 6267 6378 5 : 

3 6268 6379 5 

3 6269 6380 5 ! Since -- is not supported. put out an 
3; 6270 6381 5 ! error message to that effect. 

3; 6271 O86 2 ! If it does become supported then 
3; 627 638 !' un-comment the commented out code 
3: 627 6384 5 ! and take out the error signal. 

3 6274 6385 5 ! 

3 6275 6386 2 SIGNAL (DOBG$_SIDEFFECT) 

3 ° 76 tat e RETURN C_PRE_DECR_TOKEN 

: 6278 6389 2 SIGNAL (DBG$_SIDEFFECT); 

; 6279 6390 5 ' RETURN C_POST_INCR_TOKEN; 

3; 6280 6391 4 END; 

3; 6281 O29 4 

3; 6 4 6393 4 IF .CHARPTRCO) EQL ‘>* 

3 6 8 6394 4 THEN 

3 6284 Oen2 ; GIN 

3; 6285 6396 CHARPTR = .CHARPTR + 1; 

3 6 86 6397 5 RETURN C_ARROW_TOKEN; 

3; 628 6398 4 END; 

3; 6288 6399 4 

3; 6289 6400 4 IF .OPERAND_EXPECTED 

3; 6290 6401 4 THEN 


1 
tars ER 18-8 


eaw 
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RETURN C_MINUS_ TOKEN 
RETURN C_SUB_TOKEN; 
ND; 


wn 


uw 


} Handle RPG. The special indicator names start with ‘'*’’, 
CDBGSK_RPG): 
BEGIN 
i »CHARPTRCOJ EQL ‘** 
BEGIN 
Pick it up as a name. 
if .OPERAND_EXPECTED 
THEN 


PIS IISSSSSSSSSSSSSSSSSSSS 


WAIMOPORORUPOROPONOPORD 2 = tO 


3 4 

r 4 

3 0 

: 

3 4 

3 5 

3 § 4 

3 4 

3 8 4 

3 4 

3 0 4 

3 1 4 

3 ; 5 BEGIN 

3 : CHARPTR = .CHARPTR + 1: 

3 ¢ H Oe alias .CHARPTR(OS, CHRTBLSV_IDENT_START]J 

3 64 $ 6 BEGIN 

3; 63 64 6 

3; 63 64 : 6 

3; 63 64 6 ' We have a valid start character for an identifier in the current 
; 6430 6 ! Language. Now scan through the identifier as long as we have valid 
3 6431 6 ' middle characters and set ENDPTR each time we find a valid end char- 
; 64 ; 6 ! acter for an identifier. At the end of the scan we set CHARPTR to 
5 ; ren ts e point to the first character after the identifier end character. 
3; 63 6435 6 ENDPTR = .CHARPTR = 2; 

; 63 0638 § WHILE TRUE DO 

3; 63 643 BEGIN 

; 63 6438 7 IF .CHARTBLC.CHARPTRCOJ, CHRTBLSV_IDENT_END] 

3; 63 6439 7 THEN 

3; 63 6440 : BEGIN 

3 ; 6441 ENDPTR = .CHARPTR; 

3 31 ory! ° IF NOT .CHARTBLL.CHARPTR(O), CHRTBLSV_IDENT_MIDDLE] THEN EXITLOOP; 
3; 6 $ 644 END; 

; 6 6444 7 

; 6 6445 7 CHARPTR = .CHARPTR + 1; 

3; 6335 6446 7 IF (NOT .CHARTBL ~CHARPTREO]. CHRTBLSV_IDENT_MIDDLEJ) AND 

3 tts} 6447 8 (NOT .CHARTBLC.CHARPTR(O)], CHRTBLS$V_IDENT_ENDJ) 

; 633 6448 THEN EXITLOOP; 

; 6338 6449 6 END; 

3; 6339 6450 6 

3: 6340 6451 6 CHARPTR = .ENDPTR + 1; 

3; 6341 0636 6 

3 Ost¢ 6455 6 ; 

3 ° ? 0638 2 Copy the identifier name to TOKENBUFFER. 

5 e343 645 6 TOKENLEN = .CHARPTR = .STARTPTR; 

; 6346 6457 6 IF .TOKENLEN GTR 255 THEN SIGNAL(DBG$_IDENTLONG); 

3; 6347 6458 6 CHSMOVE(.TOKENLEN, .STARTPTR, TOKENBUFFER(1)); 


— 


<= 
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; 9 TOKENBUFFERCO] = .TOKENLEN; 
» Agee CREATE_OPERAND_TOKEN(TOKENSK_IDENTIFIER, TOKENBUFFER); 
¢ END 

} Pick it up as an operator. 

ELS 
EGIN 
CHARPTR = .CHARPTR + 1; 
RETURN RPG_MULTIPLY_TOKEN; 
END; 

END; 

END; 


! Handle Ada. Here we distinguish the tick operator from the single 
! quote--both are represented by the character ‘’’. If it is a tick 
! we return the Tick Operator Token and if it is a single quote, we 
pick up the character it quotes and return a Character Constant Token. 


CDBG$K_ADA): 
BEGIN 


Ww 
~ 
— 


na ns a pase ates esa tag 

hy. “t hehehehehe behebey SES nn 

WN 0 DONOUSWN—O”°O VIFWN—OVONOUES WN OO 
FUN —CVOONOuUsSWwn—O0@ 


If .CHARPTRCO) EQL ‘*** 


FSSSSISSSSSSSSSSSISSSSSSISSSSISITS 


PDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AA AAA AAAAAA AAA AAAAA AOS 
NNN NAA AAA DA NNN AIT ES BB EE BEE WWIII IPPINININININIHN ES & TE IIIT OF 


THEN 
BEGIN 
: If we are expecting an infix or postfix operator, this must 
: be the “tick character, which begins one of the postfix 
29 } tick operators (‘"FIRST", ‘LAST’, ...). 
6494 if NOT .OPERAND_EXPECTED 
6495 THEN 
385 64 BEGIN 
389 $98 ! Make a copy of the tick token 
388 6499 i - 
389 6500 TOKEN = DBGSGET_TEMPMEM (TOKENSK_FIXED_SIZE_LONG + 4); 
391 $38) CHSMOVE (TOKENSR_FIXED_SIZE_BYTE?1,ADA_TICK_TOKEN,. TOKEN) ; 
4 6308 : Look up which tick operator this is. 
394 6505 INCR INDEX FROM TOKENSK_TICK_MIN TO TOKENSK_TICK_MAX DO 
$2 6308 BEGIN 
98 650 
4 e208 NAMEPTR = .ADA_TICK_TABLEC.INDEX] + TABLEBASE; 
398 6510 IF CHSEQL (.NAMEPTRCO], NAMEPTRL1), .NAMEPTRCO), CHARPTR(1)) 
pots 6511 THEN 
01 o2¢ BEGIN 
0406 651 CHARPTR = .CHARPTR + 1 + .NAMEPTR(O); 
640 6514 TOKENCTOKENSW_SUBCODE) = .INDEX: 
6404 6515 TOKENCTOKENSB-OPLEN] = .NAMEPTREO) + 1; 


_mgeranse CECI BARN WELLING EET, "ee 


6405 1 CHSCOPY(1 CHSPTR(UPLIT *''*)),  .NAMEPTR(O), paren rect. 
oF i$ f° » «NAMEPTR(OJ+1, fOKENCTOKENSA. _OPNAME J); 
e638 Look for a left paren that would indicate a 
64 List of arguments follow the tick operator. 

If a paren is found, Re hw Bie. value is set 


set to $e correspondi ng tick o prcetor te + by 
adding 1 to it. lso, the CHARPT 
heaps dh pointer at the B mnt Bi, lvoe past 


WHILE .CHARTBLC. rt ee Fe CHRTBLSV_SPACE] DO 
CHARPTR = .CHARPT 


If .CHARPTRCO} EQ. *(" 
THEN 


BEGIN 
TOKENCTOKENSV AneUnENT LIST] = TRUE; 
CHARPTR = .CHARPT 1; 


Se VIFUN—OOENOUE wT 


FSI SISSISSSIIS SSS SS SSS SSS ISS SSS 


Ses isan andthe 
~o MIEWN $0 ODNAUE WN —OVOONOU EW O 


3 é 

; 6 

; 6 7 

3 6 7 

3 ? 7 

e852} 

e350 

: £854 

; 6 7 

3 6 7 

3 6 7 

3 6 8 

3 6 

3 6 

; 6 

3 6 ELSE 

; e 4 TOKENCTOKENSV_ARGUMENT_LIST] = FALSE; 

3 6 7 RETURN . TOKEN; 

3 6540 END; 

3 ? $3 END; 

; 6 rk ! If we fall through to here, we eeleed to find 

; 2 rt} 5 a matching tick operator in our table 

3 6 r ; TOceNeUFFERES} = 1; 

5 654 TOKENBUF F »* ie 

H 6548 ; CHARPTR = 

: 6549 WHILE R HARTOLE ie Slices, CHRTBLSV_IDENT_START] OR 
4 6559 5 »CHARTBLL. gate oe CHRTBLSV_ IDENT “MIDDLEJ OR 
3 6440 6551 5§ .CHARTBLC.CHARPTRLO)J, CHRTBL$V_IDENT_END) DO 

3: 6461 6 26 6 BEGIN 

3 6446 655 7 IF (. Sow tig! EQL CAR_RET) OR (.TOKENBUFFERCO] GEQ 32) 
3 644 6554 6 TH 4 Ex 

3 6444 6555 6 TOKENBUF FER H ©  TOKENBUFFERCO] + 

3 6445 6556 6 TOKENBUF FER , TOKENBUFFERCO] CHARPTRCO): 

3 6646 655 CHARPTR = .CHARPTR + 1; 

3 6447 6558 END; 

3 ests 6559 

3 664 6560 SIGNAL (BOGS _UMEATTRIS. 1, TOKENBUFFER); 

3; 6450 6561 4 END; 

3 6451 $206 4 

3 pot) 6565 4 ' Otherwise we are oupect ing an operand, sc it must be the 
3; 645 6564 4 i single quote character. ick up the Single character quoted 
3 $638 229? ? and return a Character Constant Lexical Token Entry. 

F $626 6367 ? if (.CHARPTRC1) EQL CAR_RET) OR (.CHARPTRE2) NEQ ‘***) 

3 oe 38 028 4 SIGNAL (DBG$_INVCHRCON) ; 

3; 645 6570 4 

3; 6460 6571 4 TOKENBUFFERCO) = 

3 6461 6572 4 CHSMOVE (3, coarrato), TOKENBUFFERC1)); 


ees aoipr ee ee eee ee ee — — — . aml 
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ARSER 1h-se -1984 :10: AX-11 Bliss-32 V4.0-74 Pa 1 10 
voce 12-808- 1986 95:19:43 DEBUG. SRC JDBGPARSER.832;1 ve 39) | ¥ 
; G43 6573 4 CHARPTR = .CHARPTR + 3; | 
3 646 6 , RETURN CREATE _OPERAND_ TOKEN(TOKENSK_IDENTIFIER, TOKENBUFFER); 
3; 6665 6 8 
3 oF ¢ ° 7 END; 
3 646 8 
; oee5 $ 50 'D thing f LL other L 
5 ! Do nothing for all other Languages. 
BR BR bones, pomemente 2 oe 
3 ah 6 5 0; 
3; 647 6 
3 6674 6585 TES; 
3 6475 6 
3 oe7e oe 
3; 667 6 ; ! We have not found a valid token yet. This must therefore be a genuine 
3 yah £288 } syntax error, so we signal an appropriate error message. 
3 oeay 6591 CHARPTR = .STARTPTR; 
3 6681 o236 TOKENBUFFERCO) = iF 
; 6482 6993 INCR I FROM 0 TO 20 DO 
3 6684 6595 IF .CHARPTRE.1) eo CAR_RET THEN . “pitened 
3 6485 6296 TOKENBUF FER 54 + 1) = .CHARPTRE.1); 
3 eens 659 TOKENBUFFERLO) = .TOKENBUFFERCO) + 1; 
3; 648 6598 END; 
3; 6688 6599 
3; 6489 6600 SIGNAL (DBG$_SYNERREXPR, 1, TOKENBUFFER); 
3 6690 6601 RETURN 0; 
3; 6691 yer] 
3; 6492 660 : 
; INFO#250 L1:5852 
; Referenced LOCAL symbol BACKUP_DIGIT_PTR is probably not initialized 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


49 58 45 4C SC 52 45 53 52 41 50 47 42 44 Ig 03117 P.AWZ: ASCII <28>\DBGPARSER\<92>\LEXICAL_SCANNER 10\ : 
ee $3 2 i ts te $3 9 1$ P.AXA: ASCII \SLINE \ 

20 4C 45 43 41 4¢ $2 6 13A P.AXB: <ASCII VILABEL \ : 

49 58 45 4¢ s 52 45 53 52 4] 30 47 42 44 i¢ 141 P.AXC: ASCII <28>\DBGPARSER\<92>\LEXICAL_SCANNER 20\ 
49 33 is 4¢ : 52 4 53 52 41 30 4? 43 4 ig 132 P.AXD: .ASCII <28>\DBGPARSER\<92>\LEXICAL_SCANNER 30\ 
4 47 42 b6 3¢ 58 4 5 $2 41 50 47 43 44 20 0 198 P.AXE: ASCII \ DBGPARSER\<92>\DBGSLEXICAL_SCANNER 40\ 
2 465 GE GE 41 43 53 SF &C 41 43 49 38 45 4C 18A 
00 00 00 3 8 19C P.AXF: ASCII \"\<0><0><0> : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 -ENTRY Saree Sey SCANNER, Save R2,R3,R4,R5,R6.- ; 5034 
R7,R8,R9,R10,R11 : 


¥ 
ahs R 


$s 
oon 


ie 


08 


09 


00000000' 
00000000° 


000000006 00 


i 00000000° 


D 
00000000° 
58 00000000°EF4 


oc AC 
8 1 


F 

28 00000000" EF 
0 6948 
5A 08 AS 
AS 4 
1A 01 AB 
50 6A44 
0 

1 

0 


fuliyp HTMWMNOP— 
™~™ 


9 00000000*EF 
00000000 EF 


01 
10 


oo 

wn 
—PonVrrofoLlsr 

wn 


m 
SOOOwdD "PSPunlo-~rm 


01 

02 
00000000" 
FC OA 
000000006 0 
1 
1 


ee 4 wmnm wo 
oveooo omnr NM 
wvi> 


ooo 


00000000' 
00028362 F 
03 


1ecBen-1966 02:10:18 


3h 1$: 


a 
DU—MBDo—o~m 
~ 
on 


OOoCoeoo 
ws 
wn 


SSSSSss5 
FF 


Sooooococo 


CoOoOooCoCooo 
SS SSSR 
*DWNMNOOVNOM® 
yd 
A 


OM NOOOW—OM -OMMOMIOM—r.027 C-nOMO No 
MM EMOOW——WVNODO7O7S ONO —M MOM ON > 


00DC 
00 


oF $e 128: 
DE 
00E4 


oo 
woo 


F 


AX-11 s-32 V4.0-7 


s276(sP). § 
aN 
a(SP)+ 


CHARPTR, R4 
R4, STARTPTR 
(rR), R 
R7, #13 


TERMINATOR_ CODE 
cantor (A? 3. R11 
10$ 


#18, 
TERM (ist. “Rd 


, RO 
RO, TERMPTR 
RMPTR), (R4) 


$ 
1 FERMPTR) £3 


“9 cTenwte. 7$ 
1(R4), R7 

9$ 

2(TERMPTR), 


TERMINATOR_CODE 
R10, TERMINATOR LENGTH 
TERMINATOR_ TOKER, RO 


Ro), I, 4$ 
15, 14$ 
GUAGE, #0, #10 


a 
_r— 


AN 


PPARPARLARAAM 


$SIGNAL 


Bli 
DEBUG. SRC DaGPARSER.B3 31 


5260 


—_ i 


E8 


5C 


| 
} 
| 
| 
| 
| 
| 
| 
| 


13 
18-50 -1984 02:10: AX-11 Bliss-32 v4.0-74 
1 =3007 138% 95:19:33 DEBUG. SAC IDBGPANSER. B35; 1 
1A 11 000EB BRB 14$ 
20 2 9 £D 13$: CMPB R77, #45 
5 1 F BNEQ = ‘14 
3€ 01 tf i CMP 1(R4), #62 
00000000" €F 2 F ADDL2 #2, CHARPTR 
§ 00000000° EF oe OFF MOVAB PLI_ARROW_TOKEN, RO 
oc ae 06 ac 09 109 16$: MOVL OPERAND_ EXPECTED, 12(SP) 
0 0c oot i ig ion BLBS (SP), ~16$ 
50 99 99 * FF 9000113 16$: MOVZBL @CHARPTR RO 
EE "ERGO €9 OO1IA BLBC  CHARTBL+2CROJ, 15$ 
000000" EF Bé 1 : 17$: INCL  CHARPTR 
50 909 000" FF 9A 001 MOVZBL @CHARPTR, RO 
000'EF4O DF 91 F PUSHAL CHARTBL+2CRO) 
9 o1 EQ 1 BBS #1, a(SP)+, 17$ 
5 900000006 0 E9 0013A BLBC  DBG$GB_SET BREAK_FLAG, 20$ 
50 00000000° EF 0 poi) MOVL CHARPTR, RO 
44 BF 60 91 00148 CMPB sé), #68 
iC 12 014C BNEQ 19% 
4F OF 01 Ag 91 0014 CMPB =s«o1 (RO), #79 
15 12 0015 BNEQ 19$ 
20 02 ad 91 0015 CMPB s«o2 (RO), #32 
06 13 00159 BEQL 18$ 
28 02 Ad 91 0158 CMPB =«-«-2(RO),, - #40 
09 12 001 F BNEQ 19$ 
51 00000000" EF 9E 00161 18$: | MOVAB CURLOC_TOKEN, R1 
C 11 00168 BRB 24$ 
57 BF 60 91 0016A 19S: CMPB (RO), #87 
21 12 O16 BNEQ 208 
48 «8F 01 AO 91 01 : CMPB =s-«A(RO), #72 
1A 12 0017 BNEQ 0$ 
45 BF 02 ad 91 00177 CMPB (RO), #69 
13 12 991 7¢ BNEQ 0$ 
4E BF 03 Ad 91 Ove CMPB (RO), #78 
OC 12 0018 BNEQ  20$ 
20 06 AO 91 0185 CMPB  s-«& (RO), #32 
74 13 00189 BEQL 26$ 
28 04 AO 91 0018B CMPB =s« (RO), #40 
6— 13 O18F BEQL 6$ 
59 99000000" FF 9A 00191 20$: | MOVZBL @CHARPTR, RO 
67 00000000'EF4O0 €E8 00198 BLBS CHARTBLEROJ 27$ 
00000000'EF40 ODF O1A0 PUSHAL CHARTBL+1 RO) 
9 QI £0 1A BBS a, a(sP)+, 7$ 
2 0 91 001AB CMPB a3 
Op i iA BNEQ 
07 000000006 00 91 001B CMPB BGSGB_LANGUAGE , #7 
4E 12 0018 BNEQ $ 
4A 08 Ac f 1B9 BLBS § ADDRESS EXPRESSION, 278 
5c oF 4 1BD 21$:  CMPB  (STARTPTR), #9 
9 12 001C1 BNEQ 
51 00000000° Ff 3 1¢3 MOVAB CURVAL_TOKEN, R1 
A 11 OO1CA BRB 
SE oF 66 91 OO1CC 228: CM (STARTPTR), #94 
1 Fe 109 BNEQ 
05 000000006 00 91 0010 CMPB  DBGSGB_LANGUAGE, #5 


eo 


Mae TT ee | , 


| ARSER : 
voe-000 
06 «1 109 
88 AC § 108 
00000000' 4 10F 
0 1 166 
4 OO1E 
2E 1 QOTEA 
18 #1 1ED 
28 50 9 1EF 
7 1F2 
2E 5 i 174 
1 1F7 
onl 1h toto 
50 00000000" EF + ae 
00000000° gf 56 4 0 88 
3 00000000" EF 3 : : 
so ih tee 
02C8 31 OO2ZIA 
F9 os 4 021D 
50 1 A A 00221 
ED 4445 ald E9 00225 
0000000" EF 8 0 4 
sf 3 3B 
5 00000000" FF 9A O023A 
OB O0000000"EF4O €E8 00241 
Co ae NDOOOOT EY Obese 
33 D6 00254 
14 AES 0 90 00256 
00000000° 34 6 : 7 
14 AE 59 90 00263 
55 04 00267 
54 01 cf 0269 
23 11 0026C 
50 00000000° EF 9E 00 $f 
58 50 00000000°EF 44 f 0 
50 01 4p A 0027 
59 00 02 AB 50 2d 0028 
15 Af 0 
05 12 00 » 
55 88 9A 0028C 
11 of 
#3 54 00000000° gf re 3 4} 
019¢ 002A 03h $31 0 by 
0239 0231 229 $3 : ~ 
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-$ 


~™m for 
w fw 
ro me 
oe oe 


wn nmr f% 


ow 
Ae 


318: 


32$: 


33$: 


34$: 


ep-1 
~Sep-1 


o 
wn 


on 
PM 


3b 93:19:50 


AX-11 Ot igensg Fh i | 
DEBUG. SRC JDBGPARSER.B32;1 


23$ 
ADDRESS_EXPRESSION, 25$ 
PREVLOC TOKEN, R1 
R1, R 

(STARTPTR) , #46 
27$ 
RO, #40 
RO, #46 

% 
RO, #92 
CURLOC_TOKEN, RO 
STARTPTR, CHARPTR 
CHARPTR, RO 

(RO), #37 
30$ 
68$ 

12(SP), 29$ 

(RO), R 
CHARTBL+1CROJ, 298 
CHARPTR 


#1, TOKENLEN 
#37, TOKENBUFFER+1 


@CHARPTR, R 
CHARTBL + {CROJ 32$ 
CHARTBL+1CRO 

#1, a(SP)+, 33$ 


eet 
RO, TOKENBUFFERCTOKENLEN] 
HARPTR 


1$ ‘ 
TOKENLEN, TOKENBUFFER 
INDEX 

iy 

TABLEBASE, RO 

PERCENT TABLECIJ, RO, NAMEPTR 

RO, 2(NAMEPTR), #0, TOKENLEN, TOKENBUFFER+1 


3 
(NAMEPTR), INDEX 
PERCENT _TABLE~4, I, 34$ 


sesprevertrsise 


Pane 33 


5341 


5342 


_ 
j 
| 


alls ER 
| 


| 
| 


00000000' ; 
gn 20028362 F 
000000006 ; 
"a? 
01 

; 
15 AE 00000000° 5) 
2 000289F 2 4 
15 AE 00000000" 5) oF 
3 000289EA F 
50 00000000" FF 
9000000 EF GO 
09 9E 9} 
000000006 . 01 
0 ® 89000000" FF 
0000000°EF40 
08 01 
E 90000000" ef 
50 00000000°_ FF 
00000000'°EF 40 
09 9E 9} 
000000006 01 
5 00000000" EF 
30 $0 

1 
0 01 AO 
00000000°EF 40 
08 01 
00000000' 34 
50 00000000" FF 
00000000'EF 40 

5 E 4 
OOOOOOFF 8F 03 
é 
000000006 00 4 
14 AE49 00000000" FF 
00000000 fF 
03 57 
010F 
2E 00000000° 44 
50 00000000° 44 
50 60 


em 03:10:13 


oF AF 
0D 4] 
PB 00580 
Boosts 
D4 C7 38$: 
D1 c9 
3 Hiss 
Hs 
28 002E5 39$: 
DO OO2ZEE 
DO 002F1 
9A OO2F8 40S: 
DF OO2FF 
i i 
FB 0030¢ 
oA $3! 41$: 
DF OOSIA 
58 00395 

11 00328 
oA One D 42$: 
DF 003 
B Bie 
FB 00341 
dO 8 48 43$: 
91 0034F 

12 00352 
9A 00354 
DF 00358 
Bs 008¢8 
11 00369 
9A 00368 448: 
DF 00 ie 
E1 00 
D1 0037D 
DD 00 
FB 00 
p8 0 a 45$: 
BB 

1 BS oa 
if O3A 233: 
7) 0 a 48$: 
6 B1 
Be B8 

A BA 


AX-11 Bliss-32 v4 Ph o38. 1 
DEBUG. SRC JDBGPARSER .B3 


PUSHAB P.AXC 
PUSHL 


5 

SHL #164706 
CALLS #3, LIBSSIGNAL 
BRW 67$ 
CLRL sR? 
CMPL JNDEX, #1 
BNEO 9$ 
INCL. R7 
MOVC3 #6, P. AXA. eJOKENBUF FER*1 
MOVL TOKEN 
MOVE ite 6, EERORMSG 
MOVC3 Pe XB. TOKENBUF FER+1 
MOVL NLEN 
MOVL a 5 ERRORMSG 
MOVZBL @CHARPTR, R 
PUSHAL CHARTBL+2CRO] 
BBS #1, a(SP)+ RO} Ss 
PUSHL ERR RM 
CALLS #1, LIBSSIGNAL 
MOVZBL @CHAR RO 
PUSHAL OnARTBL SC ROI 
BBC #1, a(SP)+, 42% 
INCL  CHARPTR 
BRB 41 
MOVZBL PTR, RO 
PUSHAL CHARTBL+{CROJ 

5 (SP)+, 43$ 
PUSHL ERRORMSG 
CALLS #1, LIBSSIGNAL 
MOVL §CHARPTR, RO 
CMPB  =s-« (RO), na. 
BNEQ 44$ 
MOVZBL 1(RO), RO 
PUSHAL CHARTBL+1(ROJ 
BBC #1, a(SP)+, 44$ 
INCL CHARPTR 
BRB 43$ 
MOVZBL ARPTR 
PUSHAL CHARTBL + {CRO 
BBC fi. acs 46$ 
CMPL TOKEMLEN, “9288 
BLSS 45$ 
PUSHL  ERRORMSG 
CALLS fi. LIBSSIGNAL 
MOVE §§ @CHARPTR, TOKENBUFFERCTOKENLEN) 
INCL  CHARPTR 
BRB 44$ 
BLBS 7, 48$ 
BRW 
CMPB OCHARPTR, #46 
BNEQ 
MOVL § CHARPTR, RO 
INC 


L 
MOVZBL (RO), RO 


Peas (335 


5611 


wt 
= 
Nm 
a 


Wms SOON 


PAPA 
REDE EE EE 


= 


————— -- - Oe ass Ii Se 


13 
ARSER 1b-Se -1984 02:10: AX-11 Bliss-32 V4.0-74 Page 
vor 1-Sep-19 4 95:19:13 DEBUG. SRC IDBGPARSER .B3 31 " (338 
00000000°EF4O DF PUSHAL CHARTBL+1(RO] : 
09 E 1 €1 ee BBC #i, a(SP)+, 49$ : 
000000F F 3 9 bi C8 CPL I KENLEN, #255 + 5484 
DD 00301 498 PUSHL ERRORMSG : 5486 
000000006 00 ; F py CALLS #1, LIBSSIGNAL ; 
9 0 DA 50S: INCL TOKENLEN + 5488 
14 AES9 E ye MOVE #46, TOKENBUFFERCTOKENLEN] + 5489 
9900000 . EF 06 O3€1 51S: INCL CHARPTR : 5490. 
50 000000" €F p 0 £7 MOVL  CHARPTR, RO + 5495 | 
60 1 OO03E CMPB = s«( ROD, #48 : | 
F 12 003° NEQ 52$ : | 
50 91 Ad 9A 003F MOVZBL 1(RO) + 54% 
00000000°EF4O DF 003F PUSHAL CHARTBL + 1 CROJ : | 
OF 60 O3F 5 1, acs $ : 
50 00000000" FF 9A 00402 52$: MOVZBL @CHARPT : $503. 
00000000'EF40 DF 04 PUSHAL CHARTBL+1CRO] : | 
91 E oi E1 00410 BBC #1, a(SP)+, 47$ : 
QOOOO0OFF BF 9 D1 00414 CMPL TOKENLEN, #255 + 5505) 
09 19 00418 BLSS 53$ ; 
2 DD 0041D PUSHL ERRORMSG : 
000000006 00 91 FB 0041F CALLS #1, LIBSSIGNAL : 
9 06 0426 53$: INCL TOKENLEN ; 5506 | 
14 AE49 00000000" FF 90 00428 MOVE § @CHARPTR, TOKENBUFFERCTOKENLEN] : 5507. 
00000000" EF D6 00431 INCL HARPTR : 5508 | 
(9 11 00457 BRB $ : $503) 
50 00000000' FF 9A 00439 54$:  MOVZBL @CHARPTR, RO : 5533 
00000000"EF40 DF 00440 PUSHAL CHARTBL *€CROJ : 
08 9E 01 €1 00447 BBC #1, a(SP)+, 55$ : 
00000000" EF D6 00448 INCL HARPTR > 5534, 
E6 11 00451 BRB 4$ : 
56 00000000" EF 00 Boe; 55$: MOVL CHARPTR, STARTPTR $ 5536 | 
50 00000000" FF 9A 0045A MOVZBL @CHARPTR, RO : 5542. 
00000000°EF40 DF 00461 PUSHAL CHARTBL+{CRO] : 
0D 9E 02 gt 00468 C » a(SP)+, 56$ : 
10 AE F 0046C PUSHAB TOKEN_TY 3 5544) 
18 AE 9F 0046F PUSHAB TOKENBUFFER ; 
0000v CF 02 FB 00472 CALLS #2, SCAN_QUOTED_STRING ; 
42 11 0047 BRB 628 : 
50 00000000' FF 9A 00479 56$: MOVZBL @CHARPTR, RO ; 5553) 
50 00000000'EF 40 DE 0480 MOVAL CHARTBL CROJ, RO ; 
08 60 €E8 00488 BLBS (RO) 4 3 | 
04 60 01 £0 00488 BBS ss #1, (RO), S7$ > 5554 | 
08 0 2 €1 O48 BBC #2. (RO). 58$ > $555. 
00000000" EF D6 493 57$ INCL CHARPTR : 5557. 
DE 11 00499 BRB 56$ : 
59 00000000° EF 6 £3 0498 58$ SUBL3 STARTPTR, CHARPTR, TOKENLEN ; 5559. 
D O4A BNEG 60$ : 5560. 
000289BA 8F DD 004A PUSHL #166330 : 
000000006 00 1 EB 04AB 59$: CALLS #1, LIBSSIGNAL F 
15 AE ry 9 O48 60$:  MOVCS TOKENLEN, (STARTPTR), TOKENBUFFER+1 : 5561. 
14 AE 9 90 00487 61$: § MOVB TOKENLEN, TOKENBUFFER : 336¢ | 
0918 31 00488 es: BRW : 5577 | 
50 00000000" EF E ABE 63$: MOVAB RADIX_OP_DEC, RO : 5584 | 
50 00000000' EF 9E 004C6 64$ MOVAB RADIX_OP_HEX, RO ; 5591. 
04 004¢D RET : 


peer an ER 


AE 


14 


03 


63 


00000000' 


0000v 


04 


13 


bh 
16-Sep-19 
14-Sep-19 


50 00000000" EF cf 65$: 
50 00000000" €EF rt 66$: 
£ 56 DO OO4DE 67S: 
5 0000000" FF 9A doces Sos; 
SEN edt HS 
9E 0 1 004F 
ig AE fF ia 
1 A oF GFA 
CF 02 FB F 
146 AE OF 28 
14 3 ) 
08D 1 00508 
50 00000000" FF 9A 33 69$: 
OOO0000'EFSO DF 0051 
0 9 051 
01D 1 3258 70$: 
93 08 Ac 34 520 71$: 
E 50 91 00524 
F4 13 00527 
58 04 00529 72$: 
09 000000006 8 91 005 8 
C 12 005 
0A 00000000' Fr D1 B82 
3 13 005 
38 1F 00 00530 
5 04 DO 00540 738: 
50 00000000" gf DO 00543 
10 9 D1 0054A 
03 12 00540 
57 05 DO 0054F 
08 50 D1 BO eee 74$: 
03 3 0055 
57 0B »d0O 00557 
02 50 Di 0055A 75$: 
03 is 0055D 
57 9A DO O055F 
SA 7 oO $0288 76$: 
52 00000000" EF DO 00565 77$: 
29 $¢ 9A 0056C 
53 O0000000°EF4O ODE baer 
04 4 ft 0577 
09 000000006 00 91 0057D 
3 ie 584 
2E 9 586 
09 i 0589 
2E 01 Ag 91 00588 
03 12 peat 
04 ae D4 91 
00000000'FF4 pF ° 94 78$: 
50 +3 7 SB 
AE 0 bt O08A0 
st i 
EA 11 a8 


Be 93:19:49 


DEBUG. SRCJDBGPARSER.B 
RADIX_OP_OCT, RO 
RADIX_OP_BIN, RO 
STARTPTR, CHARPTR 

R, R 


) 

TOKEN. TYP 

TOKENBUF FER 

#2, SCAN QUOTED_STRING 
ENBUFFER 


@CHARPTR, RO 
CHARTBLCROJ 
#3, a(SP)*, 71$ 
ADDRESS_EXPRESSION, 72$ 
RO, #46 
STATE_INDEX 
GSGB_LANGUAGE #9 
XPRESSION_RADIX, #10 
#31, STATE_INDEX 
P R-KIND 
EXPRESSION-RADIX, RO 
RO #16 
#5, NUMBER_KIND 
R #8 
#11, NUMBER_KIND 
RO #2 
#10, NUMBER_KIND 
NUMBER_KIND> BACKUP_NUMBER_KIND 
CHARPTR, R2 
(R2) Rb 
CHARTBL RO} R3 
#4, #4, (R35, CLASS 
6$GB/ LANGUAGE, #9 
RO, #46 


1(R2), #46 
78$ 
CLASS 
@STATE_TABLECSTATE_INDEX) 
(SP)+7 RO 
RO, CLASS 
STATE_ INDEX 
8$ 


AX-11 Bliss-32 y30°738 
32;1 
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5598 
5605 


7 


saree 18-50-1984 03:10:13 AX-11 Bligs-32 V4.0-7 398 


14-Sep-19 DEBUG. SRC JDBGPARSER. BS 31 


00000000°FF48 DF AA 79$: PUSHAL asTAT TABLECSTATE INDEX] : 5723 
08 AE 9E 08 9 EF EXTZV HH Har ACTION : 
00000000'FF48 DF PUSHAL SState’ TROLECSTATE INDEX] : 57246 
58 10 10 EF EXTZV #16, #176, a(SP)+, STATE_INDEX : 
1 gi 08 AE CF 005C CASEL A toy i, #17 : $730 
5 9 00 B 12 (B 80$: WORD -86$,- ; 
+ $34 nt rt) 28 3-808. : 
008 $3 bose OCf iia 4$- a8. : 
0054 127 05€8 es Os, ; 
$-80$.- : 
t3-803.- 
96$-80$.- : 
101$-808,- : | 
81$-80$,- : | 
100$-80$,- : | 
98$-80$,- : 
89$-80$.- : 
90$-80$.- : 
97$-80$.- : 
106$-808,- : | 
87$-80$ : | 
00000000" EF 9F OOSEC 81$ PUSHAB P.AXD > 5946) 
01 DD 005F2 PUSHL #1 : | 
00028362 8F DD 005F4 PUSHL #164706 : 
000000006 00 03 FB OOS5FA CALLS #3 LIBSSIGNAL F 
51 11 00601 BRB 93$ ; | 
6E 52 D0 00603 828:  MOVL 2, BACKUP_DIGIT_PTR > 5745) 
4C 11 00606 BRB : 
57 06 00 00608 83S: HOVL —#G, NUMBER_KIND : 5752 | 
47 11 00608 BRB : 
6E 52 D0 9600 84$: MOVL  R2, BACKUP_DIGIT_PTR : 5761 | 
3F 11 00610 BRB : 5762 | 
57 97 D0 90612 85$: MOVL NUMBER_KIND : 5769. 
D 11 0061 BRB ; 
57 08 DO 00617 86$:  MOVL #8, NUMBER_KIND : 5775 | 
38 11 OO61A BRB 3 
57 oF DO 9061¢ 87$:  MOVL #15, NUMBER_KIND > 5781 | 
3 11 O061F BRB 93$ F 
57 09 00 00621 88$: MOV. #9, NUMBER_KIND : 5787) 
11 00624 BRB ; | 
6E DO 00626 89$:  MOVL  R2, BACKUP DIGIT PTR : 5796 
05 D1 00629 CMPL ER_KIND, @ : §797 | 
68 13 0062C BEQL ; | 
0B 57 Di 0062e CMPL § NUMBER_KIND, #11 : §798 
63 13 00631 BEQL : 
OA 57 D1 006 3 CMPL § NUMBER_KIND, #10 : $799 | 
SE 13 006 BEQL 99S : 
12 11 006 BRB 91$ > 5801 | 
6 3 DO 0063A 90$:  MOVL 2, BACKUP DIGIT_PTR : $811. 
0 D1 006 CMPL ER_KIND, # : 5812 | 
OF 13 064 BEQL : 
0B 7 D1 0064 CMPL ER_KIND, #11 > $813 | 
OA 13 0064 BEQL : 
OA 7 D1 00647 CMPL § NUMBER_KIND, #10 + 5814 
05 13 0064A BEQL 92% : 


DBGPARSER 18 3 1984 02:1 AX-11 Bliss-32 V4.0-74 
= e = 3 $ = s- é <= 
v04 12-808-13 4 95:19:33 DEBUG. SRCJDBGPARSER.B32; 1 
SA DO 0064C 91$:  MOVL #14, BACKUP_NUMBER_KIND 
«COBH oe Bl Bc ee 
00 3 a ed 388: BRW 158s “ 7 
; 57 A dO 0647 94$:  MOVL_ BACKUP_NUMBER_KIND, NUMBER_KIND 
Ef 6E 1 cl 65A ADDL 3 #1, BACKUP DIGIT PTR, CHARPTR 
9 00000000" EF 6 €3 00662 SUBL3 STARTPTR, CHARPTR, TOKENLEN 
OOOOOOFF  &F 59 (01 066A 95$ CMPL TOKENLEN, #255 
5E 14 006 BGTR 104$ 
‘ iy 067 BRB 105$ 
59 52 : i$ 0673 96$ SuBL3 STARTPTR, R2, TOKENLEN 
05 gf D1 a4 97$: CMPL NUMBER_KIND, #5 
5 13 O067E BEQL 96$ 
0B 57 01 00680 CMPL § NUMBER_KIND, #11 
FO 13 006 BEQL 46-9 
OA 57 Di 00685 CMPL § NUMBER_KIND, #10 
cB 13 00688 BEQL 6-96 
57 E 00 0068A MOVL #14, NUMBER_KIND 
£6 11 90680 BRB 96$ 
10 00000000° EF D1 OO68F 98$:  CMPL § EXPRESSION_RADIX, #16 
7 1300696 99$:  BEQL  106$ 
08 11 00698 BRB 101$ 
08 ‘ E8 0069A 100$: BLBS  (R3), 101$ 
04 63 1 £0 0069D BBS #1, (R3), 101$ 
9 63 02 €1 006A1 BBC #2, (R3). 102$ 
00000000" EF 56 DO 006A5 101$ MOVL STARTPTR, CHARPTR 
4A 11 O06AC BRB 107$ 
05 57 D1 OO6AE 102$: CMPL #§ NUMBER_KIND, #5 
OD 13 00681 BEQL Ss 
0B 57 Di 00683 CMPL § NUMBER_KIND, #11 
08 13 00686 BEQL 
OA 57 01 00688 CMPL § NUMBER_KIND, #10 
03 13 00688 BEQL 103$ 
57 OE 00 006BD MOVL #14, NUMBER_KIND 
59 00000000" EF 56 C3 006CO 103$:  SUBL3  STARTPTR, CAARPTR, TOKENLEN 
OOOOOOFF  &F 59 Di 006C8 CMPL _ TOKENLEN, #255 
OD 15 O06CF BLEQ  105$ 
000289C2 8F DD 006D1 104$: PUSHL 338 
000000006 00 01 FB 00607 CALLS #1, LIBSSIGNAL 
14 AE 59 90 9060 105$: MOVE KENLEN, TOKENBUFFER 
15 AE 56 59 @8 06 MOVC3. TOKENLEN, (STARTPTR), TOKENBUFFER+1 
14 Ag F 006E PUSHAB TOKENBUFFER 
5 pp OOGEA PUSHL ER_KIND 
06EC 31 OO6EC BRW 
00000000° EF 06 OO6EF 106$: INCL HARPTR 
FE6D 31 O06FS BRW 
57 00000000' EF dO 006t8 107$: MOVL CHARPTR, R7 
30 67 9A OO6FF MOVZBL (R RO 
0 00000000"EF 49 58 0702 BLBS  CHARTBLCROJ, 108$ 
0147 31 070A BRW 126$ 
57 07 0070D 108$: DECL  ENDPTR 
51 00000000° éF po O70F MOVL  CHARPTR, R1 
50 61 9A 116 109$: MOVZBL (R1) RO 
00000000'EF40 DF 0071 PUSHAL CHARTBLERO) 
i 3 02 E1 0720 BBC ae. a(SP)+, 110$ 
5 1 pO 00724 MOVL R1, ENDPTR 
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GPARSER 16-Sep- 31 AX-11 Bliss-32 v4.0 Pa 10 
vee 1oree= 338s 08:19:45 | AKENT Shissegs MeeO-28s 9° 53) | 
00000000°EF4O0 DF 00727 PUSHAL CHARTBLCRO] : 5981) 
‘ 26 9E - 01 €1 007 BBC #1, acSP)+, 111$ : 
000 0000" EF 6 07 110$: INCL  CHARPTR + 5984) 
53 0000000° Ef pO 07 ; MOVE CHARPTR, R1 > 5985. 
00000000'EF40 DF 0742 PUSHAL La ae : 
c9 9E 01 £0 0074 BS 1, a(SP)+, 109$ : 
00000000'EF40 DF 0074D PUSHAL CHARTBLCROS + 5986) 
BE 9E 0 £0 0754 | 5 #2, a(SP)+, 109$ : 
00000000" EF 01 A? 95 00758 1118: HOVAR 187), CHARPTR : $990) 
59 00000000" EF 56 C3 00760 SUBL3 STARTPTR, CHARPTR, TOKENLEN : 3995 | 
OOOOOOFF  &F 59 (D1 00768 CMPL TOKENLEN, #255 : 5996) 
0D 15 0076F BLEG 112 : 
00028982 8F DD 00771 PUSHL #166274 : | 
000000006 00 01 EB 00777 CALLS #1, LIBSSIGNAL ; 
15 AE 66 59 2 ore 112$: MOVC TOK KENLEN. (STARTPTR), TOKENBUFFER+1 ; 5997 
16 AE 59 90 0078 MOVB = TOKENLEN, TOKENBUFFE : 5998 
38 00000000 Ef E9 00787 BLBC CASING SIGNIFICANT, 115$ : 6010 
000000006 00 36 Di 0078 CPL STARTPTR, DBGSGL_UPCASE_COMMAND_PTR > 6013 
000000006 00 56 D1 00797 CMPL § STARTPTR, DBGSGL_UPCASE_COMMAND_PTR+4 7 6014 | 
15 15 0079E BLEG 114$ : 
00000000" FF 9F 007A0 113$:  PUSHAB P.AXE + 6016 | 
1 DD 007A6 PUSHL : 
00028362 8F DD 007A8 PUSHL #16470 : | 
000000006 00 03 Fe O07AE CALLS #3, LIBSSIGNAL ; 
50 56 000000006 00 (3 00785 114$:  SUBL3 DBGSGL_UPCASE COMMAND_PTR, STARTPTR, RO + 6018) 
50 000000006 00 ¢O 007BD ADDL DBGSGL ORIG COMMAND PTR, NEW. STARTPTR + 6019 | 
15 AE 60 59 28 007C4 MOVC ENLEN, (NEW STARTPTR), TORENBUF FER+1 : 6020) 
5A D4 007C9 115$: CLRL Best TOKEN_FOUND : 6028 
55 00000000" EF DO 007CB MOVL IDENT_ OPERKTOR _TABLE, R5 : 6029 
54 o1 CE 007D2 MNEGL #1, I7 ; 
2 11 00705 BRB 124$ : | 
50 00000000" EF 9E 007D7 116$: MOVAB  TABLEBASE, + 6031 
58 50 6544 C1 0070E ADDL3 (R5)C1J, RO, TOKEN : | 
50 0c A8 9A OO7E MOVZBL 12(TOKEN), : 6032 
59 00 0D A8& 15 + 2D garer CMPC5 RO, 13(TOK KEN), #0, TOKENLEN, TOKENBUFFER+1 ; 603 
18 12 OO7EF BNEQ 121$ : 
0c Oc AE €9 007F1 BLBC  12(SP), 119$ + 6036. 
. 02 68 91 007F5 CMPB ss (TOKENS, #2 : 6037. 
03 12 00768 BNEQ 118$ ; 
0549 31 OO7FA 117$: BRW 193$ : 
05 AF 8 O7FD 118$: BLBS  12(SP), 120$ > 6038 | 
02 68 91 00801 119$: CMPB (TOKENS, #2 : 6039 
F4 12 00804 BNEQ 117$ : 
SA 58 00 00806 120$: MOVL TOKEN, BEST TOKEN, F OUND 5 6044 | 
9 54 FC OAS Fe 00809 121$: AOBLSS -4(R5S, I, T16 > 6029 | 
3A D 9080 TSTL BEST TOKEN, FOUND > 6050 | 
6 12 0081 BNEQG 124$ : 
SA D4 0081 CLRL _ BEST_TOKEN_FOUND : 6057 
55 00000000" EF DO 00814 MOVL BIF_TABLE,~R5 : 6058 
5% gt cE 0818 MNEGL #1,71 : 
1 11 0081 BRB 12%$ : 
50 00000000' EF 1 0820 122$: MOVAB TABLEBASE RO : 6060 | 
58 50 6544 C1 008 ) ADDL3 (RS)CIJ, RO, TOKEN : | 
50 08 AS 9A 0082C MOVZBL 8(TOKENS, RO > 6061 


pa 
beta ER 


59 


59 


15 


00 09 
DA 
03 
08 
08 
08 
59 00000000" 
000000F F 
000000006 
V4 
AE 
58 
00 0D 


oO 
wn 


50 00000000° 
00000000'EF 


00000000°EF 
00000000' 


50 00000000° 
00000000 "EF 


00000000" 


50 00000000' 
00000000‘ EF 


00000000" ct 

56 00000000' ‘ 
00000000° gf 

6 


F 
4 
9 
50 00000000° 4 
0 
E 
E 
F 
4 
0 
E 
E 
F 
4 


fr 
F 59 
0D 
000289A2 BF 
00 1 
AE 9 
66 9 


A 
55 00000000° ’ 


A 
28 00000000" EF 
0 6544 


04 1 As 
¢6 8 Ac 
0 C (AB 
Ag 50 
15 AE 

18 
tte 
041D 


° 14 
16-Sep-19 
14-Sep-19 

20 i 

1 
£8 OoBsA 
DO 00 ‘. 
F 41 123%: 
0 rt 
} 48 124%: 
1 4A 
DS 00840 125$: 
1 $ of 
HH Sbea 126$: 
OF Fey 

0 0086 

1 paee 

A 00869 127$: 
DF 008 
E1 st 
D6 00878 

11 sey} 
9A 00883 1288: 
DF O088A 
E1 00891 
06 00895 
11 00898 
9A 00890 129%: 
DF O008A4 
E1 008AB 
D6 OOBAF 
11 00885 
D1 00887 130$: 
12 stra 
06 008C 
C3 008C6 131$: 
01 sie $34 
15 008D 
DD 00807 
FB 008DD 
O8E4 132%: 
28 008E8 
D4 OO8ED 
DO OO8EF 
1] boars 
3 se 133$: 
C1 0090. 
E8 0090 
5S 0908 
A OO9OF 1348: 
20 eae 
091 

1g 0918 
3 091D 

1 00921 

1¢ 0924 

31 00926 135%: 


Be 93:19:43 


CMPCS 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGPARSER.832;1 


RO, 9(TOKEN), #0, TOKENLEN, TOKENBUFFER+1 


1638 
Tone Beste? EN_FOUND 
-4(R55, I, 1228, x 


eso 


@CHARPTR, RO 
CHARTBL+1CRO) 

#3, a(SP)+, 127% 
148$ 


@CHARPTR, RO 
CHARTBL + {CROJ 


4, a(SP)+, 128$ 
CHARPT 


, a(SP)+, 130$ 


2 
CHARPTR, STARTPTR 
131$ 
CHARPTR 
STARTPTR, CHARPTR, TOKENLEN 
TOKENLEN, #255 
#166306 
#1, LIBSSIGNAL 
TOKENLEN, TOKENBUFFER 
(STARTPTR), TOKENBUFFER+1 
BEST_TOKEN FOUN 
OPCHAR_OPERATOR_ TABLE. RS 


EBASE RO 

1], RO, TOKEN 

KENS, 134 

S EXPRESSION, 139% 


», R 
(TOKEN), #0, TOKENLEN, TOKENBUFFER*+1 


row $3) 


6062 
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| 
- -11 Bliss-32 v4.0-7 Page 212 
‘ppsransen Sonim OB:10:15 YAMS Stings yeete7eg | Page 213 
: 6137 
(SP) $ ; 

a Se Se CR: 18 

A 58 > 3 1388 SOV TOKEN, 8 BEST IQKEN-FOUND ; $133 
- . = Sh 4 3 A aes 73 je ; 1 Toni, OUND ; 6155 

3 : H f eras ADDRESS_ EXPRESSION, 141$ ; 6156 

- ooe? 942 1408: BRW 154$ — 

50 i A 00945 141$:  MOVZBL GiuatacsithoS® 

00000000" EF 4 pF oat PUSHAL CHAR 
18 00951 BGEQSsi4 $ Font 

7 : RTPTR, CHARPTR : 
worse! 63 08 i : $323 128; BCBS eee EXPRESSION, 145% ; 6176 

008 1 0095E 144$: BRW 268 ; 

0 00000000" FF 9A 0096 145$: MOVZBL @ 

, 00000000'EF 40 DF 0968 PUSHAL Chanel {CRO} 
9E 95 0096F S18 po 

Pin ome ; i. 

AGE, # ; 

07 000000006 00 9 0975 CHPE DBGSGB_LANGU 
$i BF OO oR ines O AARPTR #45 + 6183 

20 coo FF aed HANTS 7 

50 00000000" EF 6 00989 ROVE CHARPTR 

3E 01 AO 91 00990 CHB : ie 

) 6 $0996 ADDL2 #6 CHARPTR : ola? 
soreness 1? $1 00990 BRw «1748 : 6187 
- 9 009A0 146$: BLBC 1, 147 : 6189 

8 i § 9A " CMPB = @CHARPTR, #42 ; 

if 00000000" fF 91 009A CPE A bale 

OE 0c Hi 8 OO9AC BLBC 12¢SP) 147$ : 9191 

Soopopo" EF DE boece AOVAB C_INDIRECT_TOKEN, RO ; 6195 

50 00000000" EF 3E 00986 HOV # a | vee 

. R ° 
ecm 1: Sala a ts oe 

” $y f 80968 BRB 15%$ ~__ 

' O9CB 148$: MOV TABLEBASE, 

38 itt tee rie 2 902 ADDL ADDR_EXPR “opraLC13 RO, TOKEN : 6205 
fe ee "ae at EA ens ammm iE 
00 OD A , 

: i ae a 
A g 968 BLBC  12(SP), 1518 : 9208 
8s 5 9EC CMPB 3s C TOKENS, #2 ; 

‘ 12 OO9EF BNEQ 1308 ; 

if 9F1 149%: BRW 193$ re 
8 009F4 150$: BLBS  12(SP) 1528 : 931) 
83 235 vt 5 9F8 18h; CMPB (TOKENS, r 
“ fe ; O36 1528 BOL 1OKEN BEST_TOKEN_FOUND : 6317 
a 06 ; TBL-47 1, 1488 : 
(3 34 00000000' EF F2 O0A00 1388: AOBLSS ADDR_EXPR_OPTBL 


] 


<9 


+ veld ER 1B-3ep-1984 05:19:33 AX-11 Ot igen g ye 0°238 | Page 213 


16-Sep-19 DEBUG. SRCJDBGPARSER.B (23) 
A A TSTL T_TOKEN_FOUND 3 6223 
pe 3 AOA BEQL tite ” ; 
50 A + . ‘ 1548: aye BEST_TOKEN_FOUND, RO : 
* €F 6 DO 00A10 155$: MOVL STARTPTR, CHARPTR + 6224 
OA 000000006 3 BF At 1368: CASEB $ LANGUAGE, #0, #10 ; $535 
a | sn a aa LS : 

C 26 18C bast $1575": F 
$-157$,- : 
$-1375.- : 
$-157$.- : 
at Fe Su F 

177$-157$.- : 
18 $-157$.- : 
- $-157$ : 
O3A9 31 OOA3S BRW 03$ ; 
1 98 AC €9 OOA38 158$: BLBC ADDRESS_EXPRESSION, 159$ + 6248 
1 C AE E9 OA3C BLBC =—._:« 12 SP) , 1598 : 
2E 00000000' rr 4 Ons CHB ac ARPTR, #46 3 6249 
000000" EF 6 OA49 INCL  (CHARPTR : 6252 
50 00000000" EF 3 OG mOvAB FORTRAN_INDIRECT_TOKEN, RO + 625 
50 00000000° fF DO 00A57 159%: MOVL CHARPTR, RO + 6260 
9 6 0a5 INCL RO : 
50 60 9A OOA MOVZBL (RO), RO : | 
08 00000000°EF40 £9 00A6 BLBC  CHARTBL+1(ROJ, 1608 : 
00000000° EF 6 OngB ENCL CHARPTR ; 6261, 
00000000" EF 03 €9 OA73 160$:  ADDL2 #2, CHARPTR 5 6263 | 
55 00000000" Ef 36 ¢ OOATA Suat 3 STARTPTR, CHARPTR, RS + 6268 
20 rf OA8 BRB 162$ : | 
50 00000000" EF 9E€ OOA87 161%: MOV TABLEBASE, RO > 6266. 
58 50 00000000'EF 44 ci OABE ADDL3 FORTRAN SPECIAL _OPTALCI], RO, TOKEN ; 
50 0c A 00A9 mOvZBL 12( TOKEN), R > 6267 
55 00 Op AB 3 20 OA98 CMPCS RO, 13(TOKEN), #0, RS, (STARTPTR) ; 
68 12 OOAA2 BNEQ 162% : 
029F 31 OOAAG BRW 193$ : 
D8 54 00000000° F2 QOOAA7 162$: AOBLSS FORTRAN_SPECIAL_OPTBL-4, I, 161$ + 6264 
50 00000000" EF DO OOAAF MOVL  PRIDTBL> : 6277 
08 AE FC AO DO OOAB6 VL =4(RO), 8(SP) : 
SA cE ABB MNEGL #1, I : 
7 AB BRB 1648 : 
50 00000000' EF H: ACO 163$: ROVAB TABLEBASE RO : 6279 | 

57 50 00000000'FF4A ‘ OAC ADDL3 @PRIDTBLCIJ, RO, PRID : 

50 00000000" &F °F 8% C8 Coane suas STARIPTA, CHARPTR, RO e381 

50 00 09 «=A? 31 5 ADC CMPCS §=oR1, SCPRID), #0, RO, (STARTPTR) : 6280 
i3 12 AES BNEQ 164% ; 

50 08 aA? 9A OOAE mOVZBL B(PRID) RO + 6284 
15 AE 09 A 30 8 AE9 MOVC3 RO, 9(PRID), TOKENBUFFER+1 : 

16 AE 08 A AEF VB 8(PRID), TOKENBUFFER 3 6285 


EE Se Sc Se EE RE Se TE IA Fen ES a PIR, 


] 


<9 
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14 
GPARSER 16-Sep-1 :10: AX-11 Bliss-32 v4.0-74 Pp 14 
A 1 ~300n 138% 95:19:13 DEBUG. SRC secPansin.os3;1 29° 53) 
O2DF 31 OOAFS BRW 013 : 
C4 A 08 AE Fe OA? 164$:  AOBLSS &(SP), 1 1638 : é 9 
3 C AE AF BLBC LetsPi. 166 + 6296 
O2dE 31 08 165%: BRW 2038 : 
2E 68 1 8 166$: CMPB (STARTPTR), #46 3 
F8 12 008 BNEQ 165$ : 
00000000' ef 91 A6 9E 008 MOV 1(R6), CHARPTR + 6297 
0 00000000" EF 9 Ht MOVAB FORTRAN_DOT_TOKEN, RO + 6298 
26 00000000" FF 93 B18 167$:  CMPB ACHARPTR, #38 + 6316 
31 12 OOBIF BNEQ 1708 : 
99000000" EF 6 B J INCL  CHARPTR + 6319 
ze SOnTTWOO" oe te Sonee Greg HeggtrTh+ #38 _— 
0000000" EF 06 008 INCL  CHARPTR + 6323 
50 00000000" EF 3E 08 6 mOVAB C_AND_TOKEN, RO + 6324 
OC AE €9 OOB3E 168%: BLBC 12(SP), 1698 : 6327 
5 00000000" EF & 0349 MOVAB C_ADDR_OF_TOKEN, RO : 
50 00000000" EF oe OB4A 169$: MOVAB C_BIT_AND_TOKEN, RO + 6328 
28 00000000" FF 91 Sons 170$:  CMPB OCHARPTR, #43 + 6335 
2A 12 0085 BNEQ 172$ ; | 
00000000° EF 06 00858 INCL  CHARPTR : 6338 
28 00000000" FF 91 00B61 CMPB SCHARPTR, #43 > 6339. 
13 12 00868 BNEQ 171$ : 
00000000’ HH D6 OOB6A INCL CHARPTR 3: 634 
00028F78 8F DD 00870 PUSHL #167800 + 635 
000000006 90 01 FB 00876 CALLS #1, LIBSSIGNAL : 
00000000" EF 3E 00870 1718: NOVAB C_ADD_TOKEN, RO + 6361 
2D 00000000" FF 91 00885 172$:  CMPB OCHARPTR, #45 : 6368 
75 12 00B8C BNEQ 179$ : 
00000000" EF 06 OOBBE INCL  CHARPTR : 6371 
2D 00000000" FF 91 00894 CMPB = @CHARPTR, #45 : 6372. 
13 12 00898 BNEQ 173$ ; | 
00000000' cf D6 008 INCL CHARPTR > 6375 
00028F78 &8F DD OOBA PUSHL #167800 + 6389 
000000006 90 01 FB OOBA9 CALLS #1, LIBSSIGNAL : 
E 00000000" FF 91 B80 173$:  CMPB @CHARPTR, #62 : 6393. 
O& 12 0088 BNEQ 175$ F | 
00000000" EF D6 00889 INCL  CHARPTR > 6396 
50 00000000" EF He 1748: MOVAB C_ARROW_TOKEN, RO : 6397 
08 Oc AE 9 £6 175$: BLBC 12(SP), 1768 + 6400 
0 00000000" EF £ oebe MOVAB C_RINUS_TOKEN, RO ; 6402 
50 00000000" EF o 08D 1768: MOVAB C_SUB_TOKEN, RO F 
2a 00000000" FF Fy 0808 177$: CMPB @CHARPTR, #42 + 6414 
1F E BNEQ ; 
03 OC AE 5 BE4 BLBS 1e(SP), 178$ + 6420 
008D BES BRW 185 : 
90000000" EF 06 BEB 178$: INCL  CHARPTR + 6423 
2} 0000000' F 3 BF MOVL CHARPTR, R1 : 6424 
0 1 9A 00BF8 mov7e. (R1), RO ; 


FOr Te in i se ae eA ge Rn gy eRe eae 
‘VOe-000"" a=3ep-198e 93:19:55 — EdeauG. SkcSbacPansen.053s1 


BLBS HARTBLCROJ, 180$ 
or § 3s LCROJ, 180 


eof 


03 enaeeaadl +: 


: C03 1798: 8B 
7 fE OA ; C06 180$:  MOVAB Sith ENDPTR 
H 00000008" F 06 COA movL CHARPTR, R1 
0 1 9a 00C11 181%: movzZBL (R1), R 
00000000°EF4O DF O00C14 PUSHAL CHARTBLCROJ 
: § gp Serle Sh, af Bupetae "0 
00000000°EF40 DF 00C PUSHAL CHARTBLCRO) 
26 01 €1 00C BBC #1, a(SP)+, 183$ 
90000000" EF 06 ¢ p 182$: INCL  CHARPT 
51 0000000" €F p ¢ move CHARPTR, R1 
0 1 9A OOC3A MOVZBL (R1) RO 
00000000°EF4O DF 00C3D SHAL CHARTBLCRO] 
9 GE 1 £0 00644 BBS #1, a(SP)+, 181% 
00000000°EF 40 DF 00C48 PUSHAL CHARTBLCROS 
BE 9E 0¢ 0 C4F BBS #2, a(SP)+, 181$ 
000000" EF 01 «OA : C33 183$: MOV 1(R7), CHARPTR 
59 00000000" EF 26 C3 00¢ 8 SUBL3 STARTPTR, CHARPTR, TOKENLEN 
QOOOOOOFF  &F 9 D1 0066 CMPL §_ TOKENLEN, #255 
03 14 OCA BGTR 184$ 
F843 31 OOC6C BRW 60$ 
00028982 ef bp 90cer 184$:  PUSHL #166274 
F833 31 9¢ 5 BRW 59$ 
00000000" EF 06 00C7B8 185$: INCL CHARPTR 
50 00000000" EF Hi o0c8s MOVAB RPG_MULTIPLY_TOKEN, RO 
27 00000000" FF 91 00C86 186$: CMPB  a@CHARPTR, #39 
03 13 00¢8D BEQL ©=-«*187$ 
O14F 3) 99¢ F BRW é 3$ 
03 0c AE &9 0C92 187$:  BLBC (SP), 188$ 
0108 31 00696 BRW 1983 
08 DD 00C99 188%: PUSHL #8 
000000006 99 gt FB O¢98 CALLS #1, DBGSGET_TEMPMEM 
68 00000000° ef OF 28 Ocas MOVC3 #14, ADA_TICK_TOKEN, (TOKEN) 
7 0 3 OCAD MOVL 8 
30 00000000' EF 9E 080 189$: MOV TABLEBASE, RO 
58 00000000'EF47 C1 00CB ADDL3 ADA TICK fABLECINDEX], RO, NAMEPTR 
1 6B 9A pce MOVZBL (NAMEPTRY, R1 
0 68 9A OOCC MOVZBL (NAMEPTR). RO 
4 00000000' Ef b0 OCC MOVL  CHARPTR, R4 
50 00 01 AB - 31 D occ CMPCS R1, 1(NAMEPTR), #0, RO, 1(R4) 
73 12 00CD BNEQ 194% 
50 68 9A 00CD MOVZBL (NAMEPTR), RO 
00000000° éF 01 A640 9E OOCDA MOVAB. 1(R4)CROJ. CHARPTR 
06 AB 5 : OcEs Vw INDEX 6 (FOKEN) 
50 A OOCE MOVZBL (NAMEPTR), R 
6 CEA INCL RO 
oc ry.) ce VB RO, 12¢ TOKEN) 
C AE 68 9A Oct MOVZBL (NAMEPTR), 12(SP) 
A 0 OOCF4 VL R0 R10 
9 OD AB YE OOCF7 vag 13(R8), RO 
SA 20 00000000" EF of 2c cre mOVCS #1, P.AXF, #32, R10, (ROD 
be 18 OOS BGEQ 1908 


ASO PT RI AE AO POL ACE AL Sh Eh tl eae 
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14 55 
0D 00000000°FF 58 


15 AE4O 00000000°FF40 


9 
A 
By) 20 01 AB oc 45 
50 an , . 
00000000" EF 40 
08 9E 01 
00000000' cf 
28 00000000" FF 
or as 08 
| 00000000' 4 
01 OA 
$0 58 
FF60 57 01 99 
14 AE 449) F 
00000000" EF 
1 00000000" FF 
+ entttednal 
04 6 1 
19 60 9 
0D 1 
14 
20 14 AE 
OE 
16 «AE 
50 14 AE 
14 AE4O 51 
C7 
14 AE 
gt 
00028030 F 
000000006 03 
00000000" EF 
0D 01 AO 
AD 
27 02. =A 
gp 
00028992 F 
000000006 06 3 
14 «AE 3 
15 AE 18 00 00000000° FF 
00000000" EF 03 
14 at 
0000v CF 2 
00000000" EF 56 


OOo "OOOO WW ODO 0 "OP 


™O00T 
° 


it 


16-Sep-19 :10: AX-11 Bliss-32 v4.0-74 p 16 
12-8 08- 198 96:19:13 DEBUG. SAC IDBGEANSER 0891 age gt 
7 INCL 9 3 
eect R10 : 
MOVCS 12(SP), 1(NAMEPTR), #32, R10, (ROD : 
15 190$: MOVZBL @CHARPTR Ro t 6527 
1A PUS CHARTBL+2CRO] ; 
1 BBC #i, acsP)+, 191% : 
5 INCL HARPTR : 6528 
8 BRB 90$ : 
D 1918 cnPe @CHARPTR, #40 : 6530 
B1S82 #8, 1( TOKEN) : 6538 
A INCL  CHARPTR : 65 
BRB 193$ + 6530 
1928: BICB2 #8, 1( TOKEN) ; 6537 
193$: MOVL TOKEN, RO + 6539 
D0D4A 194$: ACBL #9, #1, INDEX, 189$ + 6505 
50 mMOVW #9985, TOKENBUFFER : 6546 
10056 195$: INCL  CHARPTR > 654 
g MOVZBL @CHARPTR + 6549 
MOVAL CHARTBLLRI, RO ; 
BLBS RO), 196$ : 
5 BBS #i, (RO), 196$ : 6550 
BBC #2, (RQ), 197$ > 6551 
00076 196%:  CMPB 1. #1 : 6553 
0079 BEQL ©: 197 : 
00078 CMPB =TOKENBUFFER, #32 ; 
D7F BGEQU § 197$ : 
D8} INCB TOKENBUFFER + 6555 
MOVZBL TOKENBUFFER, RO + 6556 
0088 MOVB 1, TOKENBUFFERCRO) : 
0D8D BRB : 6557 
OD8F 197$: PUSHAB TOKENBUFFER : 6560 
0092 PUSHL #1 : 
0094 PUSHL 7216 F 
OD9A CALLS #3, LIBSSIGNAL ; 
ODA1 198$: MOVL  CHARPTR, RO t 6567 
ODA8 CMPB RO), #13 : 
ODAC BEQL 9$ : 
ODA CMPB (RO), #39 ; 
008 BEQL $ ; 
ODB4 199$: PUSHL #166290 > 6569 
DB CALLS #1, LIBSSI F 
DC1 200$: MOVE * TOKENBUFFER + 6571 
ODC5 INSV @CHARPTR, #0, #24, TOKENBUFFER*+1 : 657 
DCF ADDL2 #3, CHARPTR : 657 
dg 201$:  PUSHAB TOKENBUFFER > 6574 
DD PUSHL #1 ; 
b0B 2028 CALLS #2, CREATE_OPERAND_TOKEN F 
DE1 203$: MOVL $STARTPTR, CHARPTR > 6591 
DES CLRB =‘ TOKENBUFFER > 659 
DEB CLRL : 659 
or 2048 cHPB HARPTREIJ, #13 ; 
DF MOVE a@CHARPTRCIJ, TOKENBUFFER*1(1) > 6596 


— 
voe-000" HEkeor}9Ge QB:I9:13  WABSUE SLUssaRRSeRTS., «REIT 


“4 A 1 INCB : 6597 
s a ee a Sts £38 
: % OA i E08 2058: PUSS feds ; 
000289E2 8F DD O0E PUSHL ; 
000000006 00 FB OOE1 CALLS a3° Or OSS IGNAL : 
D4 OOEIA CLRL RO + 6601 
04 OOE1C RET + 6603 


; Routine Size: 3613 bytes, Routine Base: DBGSCODE + OA9SE 
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! to the various enquagersgec tO N6 tables. Use language NOWN if we do 
not recognize the language code. 


iF (.LANGUAGE GEQ DBGSK_MIN_LANGUAGE) AND 
Hes LANGUAGE LEQ DBG$K~MAX~ LANGUAGE ) 
PTR = .LANGUAGE_TABLE_PTRSC.LANGUAGE] + TABLEBASE 


ELSE 
PTR = .LANGUAGE_TABLE_PTRSCDOBGSK_UNKNOWN) * TABLEBASE; 


PAANAAAMMUI 


FW OC OONO UE wt" O O@ 


; She ¢ } GLOBAL ROUTINE DBGSPARSER_SET_LANGUAGE (LANGUAGE): NOVALUE = 

; gc99 i ; agp ti t th tabl d by the P d Lexical 

; : routine sets e@ parse tables use e Parser and Lexica 

3 yobs | pees | , ! Scanner for a specified iSngusee. It is called during the processing 
; he poe : : of the SET LANGUAGE command. 

: 6 0} $619 1 i Specificially, this routine sets up the Character Table CHARTBL to 

3; 6 ¢ bol¢ ,: have the volves a rope ate for the specified Senquege It does so 

; 6 37 6615 1! by initializing CHRTBL to have the values appropriate for Language 

:; 6 6614 1! and then changing selected character characteristics as speci- 
3; 6505 6615 1! fied in the Cherecter Exception Table tor the specified Language. 

; 6 2718 = It also sets pointers to the Identifier Operator Table, the Opera- 
; 650 6617 1! tor Character Operator Table, the Number Scanner State Table, the 

; 6308 6618 ii Primary Parser State Table, and the Subscript Terminator Table for 

3 6509 6619 1! the specified Language. It calls the routine DBGSEVALOP_SET_LANGUAGE 

: 2219 4 Y : : to set up the Operator Information Tables. 

: 651 6622 1 | INPUTS 

: e318 ? 5 : LANGUAGE = The Language code for the Language being SET. 

; 315 66 5 i OUTPUTS 

: a 

; 319 66 $ BEGIN 

; 35 6631 LOCAL 

; 65 § 66 § CEPTR: REF CE_ENTRY, ! Pointer to Character Exception Table 
3; 65 66 : entry for one character 

3; 6526 66 CETBL: REF VECTORC,LONG), ' Pointer to Character Exception Table 
3; 6525 6635 : for the language being SET 

3; 65 $ 66 PTR: REF VECTORC,LONG); ' Pointer to table of language table 

3; 65 66 : pointers for language being SET 
; 6528 66 

3 : 9 66 

; 531 ! Set PTR to point to the table of pointers for this language which point 


PARAS 333233 933333333: 


6544 ! Set up the Character Table CHARTBL for this Language. Also make the 
6545 5 ! global pointer DBGSGL_CHARTBL point to the character table--this pointer 
Sete $ : 1s used in DBGSOURCE By the SEARCH command. 

6548 : DBGSGL_CHART ‘ = CHARTBL; 

6549 CETBL = .PTRCO) + TABLEBASE; 

6550 0 CHSMOVE (256*ZUPVAL, BASE_CHARACTER_TABLE, CHARTBL); 


SS . L 


<o 


j 
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: 6551 666 INCR J FROM O TO .CETBLE-1) - 1 DO 
: 820g gee PESIR = CETBLE.12 
3 6554 6664 CHARTBLC.CEPTRECE_CHAR], CHRTBLSL_WHOLE_ENTRY] = .CEPTRECE_BITS); 
: $ 5 6665 END; 
: 6 gee? 
3 : Set up the various parse table pointers to the tables for this anguage. 
6 t § h : ble poi he tables for this | 
3 6 6670 iDENT_OPERATOR_TABLE = PIR) + TABLEBASE; 
; 6561 667 OPCHAR_OPERATOR 1 = ,PTRC2) + TABLEBASE; 
3: 6 $6 b67¢ STATE TABLE = .PTR TABLEBASE; 
3 656 667 PRIMARY TABLE = .PTRLG) + TABLEBASE; 
3 6564 6674 SUBSCRIPT_TERM_TBL = .PTRES] + TABLEBASE; 
; 6965 6675 PRIDTBL =".PTRI6) + TABLEBASE; 
3 6 66 6676 BIF_TABLE = .PTRL7) + TABLEBASE: 
; 636 667 MULTIPLE SUBSCR = .PTR(B); 
3 6568 6678 ENFORCE RECORD = .PTR(9); 
3 6569 667 CASING SIGNIFICANT = .PTRC10); 
; 6570 6680 COMPONENTS_IN_PATHNAME = .PTRE11}; 
; 6971 6681 INCOMPLETE~QUAL = .PTRC12); 
r $278 eet ! Initialize the Operator Evaluation tables and the Print tables for 
3 o2r8 eet: : the current Language. 
; 6576 6686 DBGSEVALOP_SET_LANGUAGE (.LANGUAGE); 
; 657 668 DBGSPRINT_SET_CANGUAGE (.LANGUAGE); 
: 6578 6688 RETURN; 
: 6579 6689 
3; 6580 6690 END; 
07FC 00000 -ENTRY DBGSPARSER_SET_LANGUAGE, Save R2.R3,R4,R5.- ; 6604. 
R6,R7,RB,RO,RIO ; 
5A 00000000' EF 9E 00002 MOVAB TABLEBASE, R10 ; 
59 00000000" EF 9E 00009 MOVAB CHARTBL, R9 : 
58 4 AC 00 00010 MOVL ANGUAGE, R8 : 6645. 
11 19 00014 BLSS : 
OA 58 01 0016 CMPL = RB, «#10 3 6646 
0¢ 14 00019 BGIR 1$ ; 
50 6A H: 0018 MOVAR TABLEBASE, RO + 6648 
56 50 2F91 CAL ci o035 ADDL ANGUAGE_fABLE_PTRSCR8J, RO, PTR 
5 6A Hi 0027 1$: ROVAB TABLEBASE, RO > 6651 
6 5 2FB9 «CCA ¢ 00 A ADDL LANGUAGE, TABLE PTRS+40, RO, PTR : 
00000000" EF 69 9E 28: MOVAB CHARTBL, DBG$GC_CHARTBL 3 6658 
0 A 9 MOV TABLEBASE, RO > 6659 
57 0 6 003A ADDL3 (PTR), RO. CETBL : 
69 0591 cA 0400 f 8 OOS moves #1024, BASE_CHARACTER_TABLE, CHARTBL ; 6660 
OF f 0 48 BRB 4$ : 
5 674 2 4B 3$ MOVAL (CETBL)CIJ, CEPTR > 6663 
5 03 A A 0004F MOVZBL 3(CEPTR), RO + 6664 
1 00 EF 00053 EXTZV #0, #24, (CEPTR), CHARTBLCRO) ; 


<eo 


—_—__—_-—— 


tele ER 


; Routine Size: 


211 bytes, 


= 

o 
AVDOO SMO MNOMAOAOMAOMOV" 
WOOWODODOOOOCVOOOOWOowuoowo— 


0410 C9 


000000006 00 


Routine Base: 


1 
1 
FC 6O ATs 2? 4$: AOBLSS 
A . MOVAB 
04 0 oo MOVAB 
6A 9E MOVAB 
08 8640 4 MOVAB 
6A MOVAB 
OC B640 9E 7 MOVAB 
6A 9E 7¢ MOVAB 
10 8640 9E tA MOVAB 
6A 9E 36 MOVAB 
14 ou 4 3 008 nova 
18 8640 35 9 MOVAB 
6A YE QO09A MOVAB 
1¢ 8640 4 3 Bane MOVAB 
0 A6 DO OODA MOVL 
4 A6 DO QO0A9 MOVL 
8 A6 DO OODAF MOVL 
€ A6 00 00084 MOVL 
0 A6 00 QOOBA MOVL 
58 DD 000C0 PUSHL 
1 FB 000C2 CALLS 
8 0D 000C9 PUSHL 
01 FB 000CB CALLS 
04 00002 RET 


DBGSCODE + 1888 


f-beoct9ge 03:10:15 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGPARSER 832; 1 


-4(C TBL). : 3$ 
TABL BASE 
a4(PTR Roa" IDENT_OPERATOR_TABLE 


TABLE 

a8 ( inn OPCHAR_OPERATOR_TABLE 

Fiastto}e STATE_TABLE 

arecPrnstho} PRIMARY_TABLE 

a2 acne SUBSCRIPT_TERM_TBL 

agcchtn) ERO) PRIDTBL 

gacPrni tho RO], BIF_TABLE 

iL TIPLE~SUBSCR 

+ ENFORCE RECORD 


44(PTR). € IN_PATHNAME 
agcPTA), INCOMPLETE “QUAL 


RB 
#1, DBGSEVALOP_SET_LANGUAGE 
#1, DBGSPRINT_SET_LANGUAGE 


GLOBAL ROUTINE DBGSPRIMARY Cree eet tae EXPECTED FLAG 
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td Wd ss 
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ADDRESS EXPRESSION, 


TERM_LIST, PAREN_NESTING, RET_TOKEN, RET_OPERAND_FLAG): ROVALUE = 


ON 

This routine parses Primary Symbols and serves as a get-token routine 
for the Expression Parser, It calls the Lexical Scanner to get lexical 
tokens from the command Line bein parsed. It then intercepts tokens 
which are part of a Primary Symbol and uses those to build a Pr mery 
Descriptor for he symbol. Lexical tokens which are not part of Prim- 
ary 1  e- are s y peoqee through to the Expression Parser. The 
result is that the Expression Parser sees a stream of operators and 
operands where gach Primary oy or genetens has been preparsed and 
packaged as a single operand by the Primary Parser. 


A ‘Primary Symbol"’ is defined to be a variable name which may include 
pathname qualification, subscripting, data component selection, and 
dereferencing. Exactly which of these are allowed depends on the cur- 
rent language. Thus ‘'X"’ and ‘"MOD\ROUT\Z"' are Primary Symbols and so is 
“MAR\K(2,5).¥*.2(4)", In effect, a anere s773°% is anything that can 
be described by a Primary Descriptor (see DBGLIB.REQ). 


The Primary Parser emulates a Finite-State Machine (FSM) to parse the 
Primary Symbols accepted in the current language. The FMS for the 
current language is defined by a Primary Parser State Table which 
defines which operators (such as ‘“\", ‘"."", and subscripting) may appear 
in which order in a Primary Symbol. for each transition in the FMS, 

a@ semantic routine is executed which builds up the Primary Descriptor 
for the current Primary Symbol (or a Value boves.tpeer if the current 
symbol is a constant). The symbol is ‘‘accepted”’ i the parser if a 
transition is reached which returns the completed Primary Descriptor 

to the caller. If the symbol is not accepted by the FSM, a syntax 
error is signalled. 


The Primary Parser is called by the Expression Parser. However, the 

Primary Parser will itself call the Expression Parser to pick up sub- 
script expressions within Primary Symbols. Hence these two routines 

call each other recursively, and their data structures have been set 

up so that this recursion will work properly. 


ADDRESS_EXPRESSION = A flag set to TRUE if we are parsing a DEBUG 
Address Expression instead of a language expression. This 
affects the parsing of Address Expression operators such 

~~~ . © and which are recognized by 


DEBUG rules, not Language rules, in Address Expressions. 


TERM_LIST = A vector of pointers to Terminator Lexical Token Entries 
for the Terminator Tokens which can terminate the expression 
being parsed. The vector must be in PLIT form (TERM_LIST(-1] 
gives the number of entries) and each pointer is expected to 


eee, Pee gh ee ot 
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GPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Pa 2 
vi 12-8681 382 95:19:43 DEBUG. SRC JDBGPARSER.832;1 9° ee 
; 6639 6748 1! be relative to TABLEBASE. If here are no terminator tokens 
3 ory ore ' other than carriage return, this list is empty (0 entries). 
; 2726 67 1! PAREN_NESTING = The current parenthesis nesting depth. This parameter 
3; 664 67 § 1! is passed on to the Lexical Scanner which uses it in the 
3 ooe of i ; } detection of expression terminator tokens. 
3 e358 6755 1! RET_TOKEN = The address of a longword to receive a pointer to an Opera- 
; eet 34 § : } tor Lexical Token Entry or a Value or Primary Descriptor. 
3 6649 67 . 1! RET_OPERAND FLAG = The address of a longword to receive a flag saying 
3 2920 $727 ! : whether an operator or an operand was returned. 
; $636 6761 1! 7th parameter - (optional) - if present, indicates partially 
> 665 6762 1: constructed Primary and contains pointer to | 
3; 6654 6765 1! descriptor so far. This is used for example, in the 
; 6655 6764 1! C expression (*PTR).COMPONENT, where a Primary is 
: $628 6765 1! returned from the expression parser for (*PTR and we 
3 o82f 0798 : : call the Primary Parser to pick up the ‘'.COMPONENT’. | 
3; 6659 6768 1! 8th parameter - (optional) - if present, indicated partially 
3 6660 6769 1! constructed Primary and contains starting state. | 
3 6661 6770 1! 
; $666 6771 1 ! OUTPUTS ' 
3 666 6772 1! RET_TOKEN = A pointer to an Operator Lexical Token entry or to a Value : | 
3 6664 6773 1! or Primary Descriptor is returned to RET_TOKEN. What the 
; 209? errs : } returned pointer points to is specified By RET_OPERAND_FLAG. 
3; 6667 6776 1! RET_OPERAND_FLAG = A flag value is returned to RET_OPERAND_FLAG. If 
3; 6668 6777 1! 3a pointer to an Operator Lexical Token Entry was returned to 
3; 6669 6778 1! RET_TOKEN, the value FALSE is returned to RET_OPERAND_FLAG. 
3; 6670 6779 1! If a poraver to a Primary or Value Descriptor is returned to 
3; 6671 6780 1! RET_TOKEN, the value TRUE is returned to RET_OPERAND_FLAG. 
3; 667 ore) 1! 
3; 667 67 ; 1 
3; 6674 678 BEGIN 
3; 6675 6784 
3; 6676 6785 P : 
3 6677 6786 RET_TOKEN: REF VECTORC1), ! Token pointer return location 
3; 6678 6787 RET_OPERAND_FLAG: REF VECTOR(1];! Operand returned flag location 
3; 6679 6788 
3; 6680 6789 LTIN 
3; 6681 6790 ACTUAL COUNT 
; 668¢ 6791 ACTUALPARAMETER; 
3; 66 679 
Py 84 679 WN 
3 6685 6794 TOKEN_IS_INTEGER: ! Lookup table which states whether a 
3 6795 BITVECTORCTOKENSK_MAX_OPERAND + 1] ! given operand token is some 
3; 6687 6796 PSECT(DBGSPLIT) ! form of integer or not 
8 6797 PRESET ( } 
3: 6689 6798 TOKENSK_INTEGER] = TRUE : 
3 6690 6799 TOKENSK-HEX_INTEGER] = TRUE, 
3; 6691 6800 TOKENSK_OCT_INTEGER) = TRUE, : 
3; 669 6801 TOKENSK_BIN_ INTEGER] = TRUE ; 
3 669 68 TOKENSK-PACR_DECIMAL) =TRUES; 
3 6694 680 
3 6695 6804 LOCAL 


ee 
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vos 132808= 1986 95:19:40 DEBUG. SRC IDBGPARSER.B3 31 (335 
> 66 6805 ACTION ! Current state transition action index 
3; 669 e806 ARG LIST: REF VECTOR C,LONG], | List of built-in function arguments 
3 2908 ret DUMAY, ; Output paren for DEFINE lookup = not 
3 : used here. 
; 6700 $809 KIND, ! RST symbol kind for current symbol 
3; 6701 6810 LAST_OPERAND: REF TOKENSENTRY, ! Pointer to the last operand token 
; 670 6811 : ore encountered so far 
; 670 6 \¢ NUMERIC_PATHNAME, ' Flag set if numeric pathname is used 
3; 6704 681 OPCO ! Operator code for current operator 
3; 6705 6814 OPERAND_EXPECTED, ! Flag set when operand or prefix ope- 
; 6706 6815 ! rator is expected next 
3; 6707 6 1 PATHDESC: PTHSPATHNAME, ! Pathname descriptor 
3; 6708 681 PATHSTRING, ! Pointer to pathname string for pesseges 
3; 6709 6818 PATHVECTOR: REF VECTORC,LONG], ! Pointer to pathname vector in PATHDESC 
; 6710 6819 PLIPTR: REF DBGSPRIMARY, ' Pointer value 
; 6711 6820 PRID: REF PRIDSENTRY, ! Pointer to Predefined Identifier Entry 
3 orig 6821 PRIMPTR: REF DBGSPRIMARY, ! Pointer to Primary Descriptor built 
; 671 68 ¢ SAVED_PATHDESC: PTHSPATHNAME, ! Copy of pathname Seecr tgter 
3 6714 682 STATE_INDEX, ' Current index into the Primary Parser 
3; 6715 6824 } State Table ; | 
; 6716 6825 STATUS ! Status code returned by RTL routines 
> 6717 6826 STRDESC: BLOCK(8, BYTE), i String descriptor for RTL calls | 
3; 6718 6827 SUBSCR_DESC: SUBSCRSDESC, ! Holds saved-away subscripts 
3 6719 6828 2 SYMID, ' SYMID (Symbol ID) for current symbol 
; 6720 6829 TEMPTOKEN: REF TOKENSENTRY, ! Pointer to token for invocation number 
3 6721 6830 TOKEN: REF TOKENSENTRY, ! Pointer to the current Token Entry 
3; 672 6831 TYPEID, ! TYPEID (Type ID) for current symbol 
3 ors? ret § VALPTR: REF DBGSVALDESC; ! Pointer to a Value Descriptor 
3; 6725 6834 § 
3; 6726 6835 : : ; 
3 6727 6836 2 ! There are two different initialization paths. The normal path is 
3; 6728 6837 2 ! when we are picking up a Primary from scratch; that is the ELSE 
3 6729 6838 2 ! clause below. 
3; 6730 6839 2 : 
3 6731 ‘6840 IF ACTUALCOUNT() GTR 6 
3; 6732 6841 THE 
3; 6733 684 BEGIN 
3 6734 684 | 
; 6735 6844 
; 6736 6845 3 ! If we got an Operator Token Last time which was not _part of the Primary 
3: 6737 6846 } syavet we were building, then we saved it in SAVED_TOKEN while we com- 
3; 6738 6847 ! pleted and returned the Pe saery Descriptor. In that case, return the 
; 6739 6848 ! input Primary and retain the SAVED_TOKEN value for the next time 
3; 6740 6849 ! Primary Parser is called. 
3 6741 6850 : | 
3; 674 6851 IF .SAVED_TOKEN NEQ 0 | 
3; 674 $836 THEN 
3 6744 68535 4 BEGIN 
3 6745 6854 4 RET_TOKENCO] = ACTUALPARAMETER(7); 
3 6746 6855 4 RETORN; 
3 6747 6856 END; 
3; 6748 6857 
3; 6749 6858 ae ; 
3; 6750 6859 ! This is the case where we call the Primary Parser when we already 
3 6751 6860 ! have constructed part of the Primary, and we want to pick up the 
3 6752 6861 ! rest of the Primary. In this case, a pointer to the partially- 


3 


> 
wu 


POPAAPAPSOAAAOAAAAAAS 
SSSSSESSISSELSS SALAS IS 


SSSESSESES 


i 


18-50-1984 96:10:13 AX-11 Bliss-32 V4.0-7 


DEBUG. SRC JDBGPARSER.B 


14-Sep-1 


' constructed wee assed in as the 7th parameter, ong gn 

! current stete io att Ofek ake"to"s is passed in as A,- th poreneter. 
; giso nit ain, the T ys AND to =1 here; it must be non-zero to 

i. avoid confusing the. code 


13 
DPERAND CTED = -OPERAND 
e IAbeK. = ACTUALP RAMETE 
PRinPTh z ACTUALPARAMETERLY. 


EX pECreD -FLAG; 
R(8); 


BEGIN 


| an Operator Token Last time which was not part of the Primary 
i sy bol were building, then we saved it in SAVED_TOKEN while we com- 
i pleted and returned the Primary Descriptor. In that case, return the 
saved token to the Expression Parser now and do no more. 
if «SAVED_TOKEN NEQ 0 
THEN 
BEGIN 
TOKEN : paves — 
SAVED 
RET_T FOKEN 0) = * TOKEN; 
RET“ OPERAND FLAGLO) = * FALSE: 


! Initialize LAST_OPERAND to be null (no operands have been encountered 

i yet). Also initialize the OPERAND EXPECTED flag and various other local 

variables and data structures. 

LAS = 0; 
sto D = .OPERAND_EXPECTED_FLAG; 

hi SIZE*ZUPVAL, PATHDESC); 

Wea PATHV VECTOR]: 


EJ 

meTR 
NUMER! 
CHS ILL 

L E> SUBSCR_DESC); 


ATHNAME = 
1 DBGSK PATHN 443 
T SO PATRDESCLPT 
ALCO, SUBSCR DESC_S 
= 0; 


! Loop through all lexical tokens on the input Line being parsed until we 
; reach a terminator operator. 


WHILE TRUE DO 
BEGIN 


! Get the next lexical token. DBGSLEXICAL_SCANNER picks up the next 
i token using the rules of the currently sét Language. 


TOKEN = DBGSLEXICAL_SCANNER( .OPERAND_EXPECTED, 
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-ADDRESS EXPRESSION TERM THE - PAREN ST ); 
IF \DBGSGL_DEVELOPERE SS THEN 5URPS TOKEN(. TOKEN) fgets 


: enecs for an invocation number. An invocation number consists of an 
: wnteger constant in @ pathname where an egereter is expected. f 

i is an invocation number, we convert it to the invocation number 
i costtis operator which then passes through the rest of the code below 
in the normal way. 
I 


if (. spainer EQL 0) AND 
OPERAND HEROD AND 


cn wos f AND 
( bos earrosensa tt Te? TOKENSK_OPERAND) AND 
rei oxen Is_ INTEGER TOKEN TOKENSW_CODE J) 
BEGIN 
TEMPTOKEN = DBGSGET ~ TEMPRER( TOKENS teeta OPERATOR + 
.T tt ate ¢ TUPVAL)/ZUPYAL) ; 
lepigisieea-tu KIND) : Oy OKEN 


TRUEF 
TEMPTOKENL TOKENS Ej] = ir Nak INVOCNUM:; 
CHSMOVE (. TOKEN pac TORE NtD En 


TOK NCENGTHI, “ TEMPTOKEN[ TOKENSB_ OPLENJ); 
ap = .TEMPTOKEN; 


! Handle operands. If this is an operand, check that we are actually 
i expecting an operand at this point. Save a pointer to the operand 
; and loop to get the next token. 


iF «,TOKENCTOKENSB_KIND] EQL TOKENSK_OPERAND 


BEGIN 
IF NOT .OPERAND_EXPECTED 


SIGNAL (DBGS_MISINVOPER, 1, TOKENCTOKENSB_LENGTH)); 


openne EXPECTED = FALSE; 
T_OPERAND = . TOKEN; 


mg operators. If this epereter is not part of the current Prim- 
we save it while building and returning a descriptor for 

the Primary Symbol. If the operator is pact of the current ae 

Ss add to the Primary we are building and loop to pick 

more of the Primary. 


ELSE 
BEGIN 


! If this operator is not part of the aye Symbol we are build- 
! ing (if any), then it is a conpuege or address cupress ton opera- 
i tor. Save it for the next call on DBGSPRIMARY. PARSER and use the 


$3.1 


Page 385 


<Zg 


Be Oe Be Oe Oe Oe Oe Oe Se Oe Oe he Oe BOSH Se Oe Be Oe BH Se Bee Oe Oe Oe Oe Oe Oe Oe Oe Oe SHH Oe Oe Oe Se Oe Oe Oe oe Oe oe BH Oe Oe Oe ee we OH Oe ee oe 


15 
iSrdeoct9Re 08:10:15 YAReNT BLigs=82 yeetn7eg age 226 


! Terminator Token to close out the Primary Symbol we are buildin 
} (if we are building one). . . 


it wor - TOKENC TOKENSV_PRIMARY) 
BEGIN 


} If no operand was started, return the operator immediately. 


iF -LAST_OPERAND EQL 0 
HEN 


BEGIN 
RET_TOKENCO] = . TOKEN; 
RET OPERAND_FLAGLO] = FALSE; 


! An operand is present=-save the language operator and set 
: things up to close out and return the operand. 
SAVED_TOKEN = .TOKEN 


- TOKEN; 
TOKEN = PRIMARY TERA TOKEN: 
BET OPERANDS FLAGL ] = TRUE; 


! We now have a Primary operator. Check that an operator was 
' expected unless this is a prefix operator (which is okay when 
! we expect an operand). This check catches many kinds of ill- 
' formed rv Maer Symbols. Also say that we expect an operand 
next unless this is a postfix operator. 
IF (.OPERAND_EXPECTED AND 

. TOKENCTOKENSB_KIND] NEQ TOKENSK_PREFIX_OP)) OR 

((NOT .OPERAND _EXPECTED) AND 
(. TOKENCTOKENSB_KIND] EQL TOKENSK_PREFIX_OP)) 


THEN 
SIGNAL (DBGS_MISOPEMIS, 1, TOKENCTOKENSB_OPLEN)); 


IF -TOKENCTOKENSB_KIND] NEQ TOKENSK, PREF IX_OP 
IF .LAST_OPERAND EQL 0 


ELS SIGNAL (DBGS_MISOPEMIS, 1, TOKENCTOKENSB_OPLEN]) 


If .LAST_OPERAND NEQ -1 
THEN 


BEGIN 
IF (.LAST_OPERANDCTOKENSB_KIND) NEQ TOKENSK_IDENTIFIER) 
END SIGNAL (DBGS_MISOPEMIS, 1, TOKENCTOKENSB_OPLEN)); 
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END; 
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14-Sep-19 DEBUG. SRC JDBGPARSER.B 
; 6926 3 : 
; 63 ‘ 5 4 IF .TOKENCTOKENSB_KIND NEQ TOKENSK_POSTF1X_OP 
: HEN 
; $9 , ¢ OPERAND EXPECTED = TRUE; 
; 69 f 3 4 
; 69 4 : P ; 
: or this Primary Operator and loop throug 
: re : , ; ¢ i 44 Srensitions San tae current state in the Primary Parser State 
: 69 7 4 ! Table until we find a transition for this operator. If we find 
: 69 7 5 4 no such tt i eg pe ng ig Bo he a. 
; 3 3 , $ ¢ i eter, Bt the Ri, . A. is allowed, we pick up Ts estan index 
; 69 7 § 4 ; the next state in the FSM. 
: 69 ? 4 i 
: . TOKENC TOKENSW_ CODE); 
: $320 Ark ¢ WHILE! ZPRIMARY -TABLEL.STATE, HOEY, PRIMARYSB_OPCODE] NEQ .OPCODE DO 
; beak Poet If .PRIMARY_TABLEC.STATE_INDEX, PRIMARYSB_OPCODE) EQL 0 
; Seek ras SIGNAL (DBGS_SYNERREXPR, 1, TOKENCTOKENSB_OPLEN)); 
; oF ree STATE_INDEX = .STATE_INDEX ¢ 1; 
; ooe 7086 4 END; ~ 
: 6948 7057 & 
: 7 ABLEC.STATE_INDEX, PRIMARYS$B_ACTION); 
: $330 7089 ¢ STATE INDEX 2 PRIMARY TASLEC STATE INDEX” PRIMARYSW_NEXTSTATE); 
> 6951 7060 4 
: $38 ae ¢ ' Execute the action routine associated with this state transition. 
. i 
; g9e¢ joee ¢ CASE .ACTION FROM PRIMARYSK_MIN_ACTION TO PRIMARYSK_MAX_ACTION OF 
> 695 7065 4 SET 
3; 695 7 4 
$98 rer d ! Handle Global Symbol backslash operator (prefix "\'"). Do 
F 7069 4 ! nothing at this point. 
3; 6961 7070 4 ‘ p 
; 7071 & CPRIMARYSK_ACT_START_GBLI: 
@ 696 a 
Be | RR 
3 6965 7074 & ca 
; ter Global Symbol backslash. Just pic 
/ 696 , ie ¢ a he gee, oll — create a Primary Descriptor 
: 6968 707 4 ! for it. Then exit from the parse loop. 
: i 
; $9 3 O79 4 CPRIMARYSK_ACT_GBL_TERM): 
+ 6971 7080 
; PATHDESC(PTHSB_TOTCNT) = 1 
: $3 rane PATHDESEEPTNEBCPATNCMT 
a 4 : 
: eae ; APPEND MO PATInand to PrinshvibatiOccr odsen Bro 
$3) Hat Re ae .PLIPTR, SAVED_PATHDESC); 
3; 697 7 ; a 
3; 697 4 2 EXTTLOOP; 
3; 697 3 
3 $3 8 3 4 
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; 6981 4 ; 
3 23 , 4 ! Handle backslash immediately after the start of the symbol. 5 
3 f 6 : iB the Last operand was a number, we have a numeric pathname : 
3 ¢ 935 4 ' an ond wt Oe put that vane the Pathname Descr eter and set the 3 
; 6985 7 4 } ¢ pathname f Lag. it is an identifier, we simply 3 
3 24 oye? 2 ; ap sopend it to the Pathname Descriptor as is. : 
3; 69 ? CPRIMARYSK_ACT_START_SLASH]: ; 
3 o2 . BEGIN : 
8395 i 
; 699 7101 ! If the “¥ perend is an prepeer then it constitutes : 
3 699 71 ; i @ numer me. ait e yt in the Pathname Descrip- : 
3 6996 71 ! tor and set the NUMER ATHNAME $ ag (which means that : 
3 2444 4 : ; no additional Seana “srol titeatlen is allowed). : 
3 £399 71 if - TOKEN_IS_INTEGERC .LAST_OPERAND([ TOKENSW_CODEJ] $ 
3; 6998 71 THEN 3 
3 ore tee 6 sie 3 
3 71 6 STRDESCCOSCSB_DTYPE] = psc pre {3 é 
3 1 mig 6 ST RDESE bsc$B_ CLASS] = DSCSK . 
37 : 7111 6 STRDESCCDSC$W_LENGTH] = .LAST -BRERMNSEToresa. Len LENGTH]; : 
3 7 nig 6 STRDESC Hitt POINTER] = LAST OPERANDLT ; 
3 7 711 6 TATUS = OTSSCVT_TI_L(ST RDESC; PATHDESC PTHSL_ TNeOcHUND) : $ 
; a abe ° F wos STATUS : 
; 700 any 6 NSIGNAL (DBGS ILLPATHELEM é 
; 7008 fly 6 CAST-OPERANDCTOKENSS_LENGTHI, STATUS); : 
: 7910 ate 6 PATHDESCCPTHS$B_LOC INV ¢) 21; é 
3; 7011 7120 6 PATHDESC PTHSB_ TOTCNT 1; 3 
: 701 7121 6 PATHDESC PTHSB_PAT WONT) = 1; : 
; 701 71 j 6 HVECTORLO) = uPLIt Byte (6); : 
3 7014 71 6 NUMERIC. PATHNAME + RUE; 3 
3; 7015 7124 6 END 3 
3 7 1 7125 6 3 
; 701 71 $ 6 é 
3; 701 71 6 g 
; 701 7128 6 ! Otherwise simply append the last operand to the current 3 
; 70 7129 6 ' Pathname Descriptor. (The apgend routine checks that : 
3 4 1 4. ? 6 } the operand is oa identifier 3 
37 § 71 ; ELSE 3 
; z 4 4 APPEND_TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP); ’ 
3 7 $ 7135 4 END; 3 
if wae 
: 7 7138 4 ' Handle an invocation number immediately after the first or a ; 
3; 7 7139 4 ! Later pathname component of the symbol. Check the invocation ; 
3 4 1 eee ? number for validity —_ fill it into the Pathname Descriptor. $ 
: 20 ary 4 CPRIMARYSK_ACT_SLASH_INVOCNUM) : ; 
: 7 714 BEGIN 3 
: 7035 7144 3 
3:7 7145 3 
; 70 7146 !' Check that an invocation number has not already been é 
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specified--if one has, signal an error. 
= jPATHDESCCPTHSB_LOCINVOC] NEQ 0 
SIGNAL (DBG$_TOOMANINV) ; 


e invocation number to internal form and fill 
e Pathname Descriptor. 


g-ONcH] s SEE ant. 
s . 

“LENGTH) = “TORENT TOKERES_OPL EN}; 

POINTER] = TOKENLTOKENSA DPNAME); 

LUSTRDESC, PATHDESCEPTHSL_INVOCNUM)) ; 


CONOUS Ww -"O0an 


PUPAE & 


h 
h 
$ 
$ 
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SIGNAL (DBGS ILLPATHELEM, 1, TOKENCTOKENSB_OPLENJ, 
DBGS_UNACVT UPLIT BYTE(ZASCIC ‘decimal *), 
+ STROESC, UPLIf BYTE(ZASCIC ‘longword integer’), 


CATHBESCEP THES _LOC VOC] = .PATHDESCCPTHSB_TOTCNT) + 1; 


' Handle dot vanodtotety after the start of the symbol. Append 
' the Last operand to the current Pathname Descriptor and build 
the first part of a Primary Descriptor for it. 
CPRIMARYSK_ACT_START_DOT): 

LABEL TEMP_BLOCK; 

! If the last operand was an identifier, we append it to 

' the current Pathname Descriptor and convert that to a 

} Primary Descriptor. 


TEMP_BLOCK: BEGIN 
1F | CAST OPERANDL TOKENSW_CODE J EQL TOKENSK_IDENTIFIER 


N 
BEGIN 
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First check for DEFINEd symbols. 
! Check that no invocation number is present. 


' 

' 

! 

if .PATHDESCCPTH$B_LOCINVOC) EQL 0 
THEN 


ma aaa a at kd ad ed “kd a 8 a to 2 2 


Look up the symbol in the DEFINE symbol table. 

BEGIN 

IF DBGSDEF _SYM_FIND (LAST_OPERAND CTOKENSB_LENGTH), 
KIND, PRIMPTR, 


LSSSLSSRANLESELS 


Be Se Oe Se Oe Be Se Se Se Fe Ge Ge Fe Se Se Se Se Se Se Ss Ge Ge Be Se Se Se Se Os Se Ge FH Fe Ge Se SH Se Se Se Se SH SY Ge Se Se Se Ge Se Ge Se Se SH Ge Se Ge Ge Oe Ge 
Se Die Site yin Bin Bi Si itn in i Be St BB Be te i i i i et i eb te i i i i ip i i ep i ei | 
Be Be Be Oe Oe Oe OH Oe Oe Oe Se Oe Be Se SHS Se Oe Se Oe BH Oe Oe Oe OHH Oe Oe Ot Os Oe Se Oe HOH Oe Oe Oe Oe ee HOt Oe Oe Oe Oe Oe OHS OH Os Oe oe OH SH Se ee 


Mronrn— 


oo 
wm 


<9O 


H 15 
vos-000"" 1ea$ep-1986 19:17:50 EdeauG.SacSbacpansén.oss;1 = "88" 389 
THEN 


N 
IF .KIND EQL DEFINE_ADDRESS 
QR KIND EQL DEF INE-VALUE 


N 
BEGIN 


uw 
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! We have found a matching DEFINEd symbol. 
' Copy the descriptor into Sonporers memory. 
: (Fourth parameter FALSE <=> copy into tempmem). 


DBGSNCOPY_DESC (.PRIMPTR, PRIMPTR, 
DUMMY, FALSE); 
LEAVE TEMP_BLOCK; 


END; 
APPEND _TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP); 


PRIMPTR ="PATHNAME_TO_PRIMARY(PATHDESC,SUBSCR_DESC 
.PLIPTR, SAVED_PATHDESC) ; 
END; ! TEMP_BLOCK 
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' Handle a dot janedtorety after the start of the symbol. 
' In PLI we collect all tne record components before 
! calling PATHNAME_TO_PRIMARY. 


' 
! 
' 
' 
CPRIMARYSK_ACT_START_DOT_PLIJ: 
APPEND_TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP) 
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} Handle a dot after the start of the symbol in COBOL. 


4 . 
4 7 CPRIMARYSK_ACT_START_DOT_COB): 
4) $2 Cn te PRTUMARE RTUDESE., -LAST_OPERAND, COB_REC_COMP); 
71 4 : 
71 48 
49 ' Handle a subscript parenthesis immediately after the start of 


' 
50 ! the symbol. Append the last operand to the Pathname Descrip- 
' tor, build a partial Primary Descriptor, and then pick up the 
i subscript expressions within the parentheses. 
C 


PRATER AES FU OER 
LABEL TEMP_BLOCK; 
' If the last operand was an identifier, we append it to 


' the current Pathname Descriptor and convert that to a 
! Primary Descriptor. 


CONIA UNE WIP 
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; 71 : 

; 71 5 TEMP_BLOCK: BEGIN 

; 4 2 1F eich! -OPERANDL TOKENSU_ CODE EQL TOKENSK_IDENTIFIER 
BEGIN 
! First check for ath 5 symbols. 
} Check that no invocation number is present. 
if, PATMDESCCPTHSB_LOCINVOC] EQL 0 


: Look up the symbol in the DEFINE symbol table. 


BEGIN 
IF DBGSDEF_SYM_FIND (LAST_OPERAND CTOKENSB_LENGTH), 
KIND> PRIMPTR, 


UMMY, DUMMY) 
THEN 


BEGIN 
If .KIND EQL DEF INE_ADDRESS 
aes EQL DEFINE VALUE 


N 
BEGIN 


! We have found a matching DEFINEd symbol. 
! Copy the descriptor into senperary memory. 
: (Fourth parameter FALSE <=> copy into tempmem). 


DBGSNCOPY_DESC (.PRIMPTR, PRIMPTR, 
DUMMY, FALSE); 
LEAVE TEMP_BLOCK; 


END; : 
a END; 
APPEND TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP); 


PRIMPTR ="PATHNAME_TO_PRIMARY(PATHDESC,SUBSCR_DESC 
-PLIPTR, SAVED_PATHDESC, TRUE); 
END; ! TEMP_BLOCK 


GET_SUBSCRIPTS(.PRIMPTR); 
END; 
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' Handle a subscript lanedtately after the start of the 
' symbol. In PLI we save away the subscripts and do not 
build them into the Primary until later. 


CPRIMARYSK_ACT_START_SUBSCR_PLI): 
EGIN 


APPEND TO_PATHNAME(PATHDESC, .LAST OPERAND, NOT_REC_COMP); 
SAVE SUBSCRIPTS (PATIOESC, SUBSCR_DESC); 
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! Handle a subscript parenthesis immediately after the start of 

' the synsrs- Append the Last operand to the Pathname poser’ 

! tor, Build a partial Primary Descriptor, and then pick up the 

! subscript expressions within the square brackets. BLISS needs to 
! be special cased because BLISS structures are represented 

: differently in the RST and DST. 
t 


PRIMA TER ACT START SUBSCR OLLI: 

LABEL TEMP_BLOCK; 

! If the last sere was an identifier, we 

TEMP_BLOCK: BEGIN 

IF eich | -OPERANDLTOKENSU_CODE] EQL TOKENSK_IDENTIFIER 
BEGIN 
! First check for DEFINEd symbols. 
Check that no invocation number is present. 


if .PATHDESCCPTHSB_LOCINVOC] EQL 0 
THEN 
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4 
oz Look up the symbol in the DEFINE symbol table. 
$ BEGIN 
48 IF DBGSDEF _SYM_FIND (LAST_OPERAND CTOKENSB_LENGTH), 
49 KIND, PRIMPTR, 
50 DUMMY, DUMMY) 
+! THEN 
335 If .KIND EQL DEFINE_ADDRESS 
54 OR .KIND EQL DEF INE_VALUE 
55 THEN 
2$ ! BEGIN 
58 1 
59 1 ! We have found a matching DEFINEd symbol. 
1 ! Copy the descriptor into semper ery memory. 
: (Fourth parameter FALSE <-> copy into tempmem). 
1 DBGSNCOPY_DESC (.PRIMPTR, PRIMPTR, 
1 DUMMY, FALSE); 
1 pEAve TEMP_BLOCK; 
END; 
END; 
END 
ELSE 
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: if the last operand was not an identifier then 
! it is not legal to select a component. 
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! | 

SIGNAL (DBG$S_NOTASTRUCT, 1, LAST_OPERANDCTOKENSB_LENGTH)); 

’ Append the Last operand to 

' the current Pathname Descriptor and convert that to a 

} Primary Descriptor. 

APPEND TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP); 


PRIMPTR ="PATHNAME_TO_PRIMARY (PATHDESC, SUBSCR DESC 
.PLIPTR, SAVED _PATHDESC); 
END; ! TEMP_BLOCK 


GET _BLISS_SUBSCRIPTS(.PRIMPTR, LAST_OPERANDCTOKENSB_LENGTHI) ; 


Handler the PASCAL dereference operator (*). Append the 
last identifier onto the pathname. Then build the pathname 
into a Primary Descriptor. Then call the routine that 
handles derefencing --it just lights the EVAL bit on the 
sub-node and then allocates a new subnode for the object 
being pointed to. 


ste 7 t+ el tena cinta 
LABEL TEMP_BLOCK; 
! If the last operand was an identifier, we append it to 
' the current Pathname Descriptor and convert that to a 
Primary Descriptor. 


TEMP_BLOCK: BEGIN 
1F CAST _OPERANDL TOKENSW_CODE EQL TOKENSK_IDENTIFIER 


BEGIN 


on TTT te te 
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7411 
mig ! First check for DEFINEd symbols. 
oli Check that no invocation number is present. 
7415 IF .PATHDESCCPTH$B_LOCINVOC] EQL 0 
els THEN 
741 
19 ris Look up the symbol in the DEFINE symbol table. 
i 7421 BEGIN 
} 1 74 ¢ IF DBGSDEF_SYM_FIND (LAST_OPERAND CiOKENSB_LENGTH), 
14 74 KIND, PRIMPTR, 
15 7426 UMMY, DUMMY) 
16 7425 THEN 
1 74 $ BEGIN 
IF .KIND EQL DEF INE_ADDRESS 
1 74 F .KIND E F INE 
1 74 3 OR .KIND EQL DEFINE VALUE 
0 74 THEN 
1 7430 1 BEGIN 
2 7431 1 
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! We have found ? matching DEFINEd symbol. 
i Copy the descriptor into semper ery memory 
(Fourth parameter FALSE <=> copy into tenpnen). 


DBGSNCOPY DESC (. Suny A ise 
LEAVE TEMP_BLOCK; 
END; 


EN 
APPEND tO _PATHNAME (PATHDESC, .LAST_OPERAND NOT efEC. COMP); 
PRIMPTR ="PATHNAME_TO_PRIMARY (PATHDESC, SUBSCR | 

.PLIPTR, SAVED en rnpese): 


NOUS Ww 


wn 


END; ! TEMP_BLOCK 
GET_DEREFERENCE( .PRIMPTR); 
END; 


' Handle a PLI dereference as in A->8. Here we convert the 

1 left-hand-side to a Primary, and then save away the Primary. 
: mae arse is then “backed ¢ up to the start state to pick 

! up the right hand side of the ‘=>"’. Later, in the 

! PATHNAME_TO_PRIMARY routine, the two primaries are glued 
together. 


CPRIMARYSK_ACT_START_DEREF_PLIJ: 
BEGIN 


| 
uw 


Save away the Primary for the stuff to the left of ‘=>"’. 


APPEND_TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP); 
PLIPTR™= PATHNAME_TO PRIMARY (PATHDESC SUBSCR 
AveD TPATHDESE): 
IF (. PLIPTRCDBG$B_DHDR_KIND] NEO Pretax ) OR 
(-PLIPTR DBG$B~DHDR-F CODE] NEQ RSTSR st _PTR) 
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NAME ; 
DBGSNPATHDESC_TO_CS(PATHDESC, a" 


367 SIGNAL (OBGS_ VALNOTADDR, 1, .NAME); 
3 Re-initialize. 
7 PRIMPTR = 0; 


NUMERIC PATHNAME = FALS 
CHSFILLTO DBGSK patina SIZE*ZUPVAL, PATHDESC); 
TOR = CCPTHSA_PATHVECTOR); 

CHSFILLCO, Susseee OFEse. SIZE> SUBSCR_DESC); 


2 
o 
. 
a 
. 
o 
. 
e 
° 
° 
+ 
o 
. 
o 
’ 
° 
e 
. 
° 
2 
7 
. 
° 
7 
° 
. 
° 
. 
e 
© 
° 
. 
e 
. 
o 
° 
° 
° 
° 
. 
a 
° 
oe 
. 
° 
. 
° 
° 
o 
. 
° 
. 
° 
° 
e 
° 
° 
7 
a 
° 
° 
° 
e 
° 
° 
. 
e 
> 
a 
° 
° 
. 
o 
° 
o 
° 
6 
* 
° 
° 
° 
° 
° 
. 
e 
. 
o 
. 
° 
. 
6 
© 
° 
. 
& 
. 
e 
. 
oe 
o 
7 
° 
© 
e 
o 
vu 
° 
. 
o 
. 
° 


PERDANA A AXA AUG MUMMIES & BPE PEEP PNMNAOOA NDOOOOOCOOCO 


>> >> DEPP D Eye! 
WWW AI 
SANG 
CONOUSW OO 


! Handle the built-in function operator that follows the 


m 15 

GPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 235 
vos 1er8ee=18ke 93:19i40 — Ebkade Bhi Sseceakces oss... 9 383 
3 ries 4 ! built-in function name, This will return a primary that 
3 eee ? represents the value of the built-in function. 
; 7492 4 CPRIMARYSK_ACT_START_BIF_CALLJ: 
: 749 BEGIN 
3 7494 
5 7495 
3 74 ! If the Last operand was not a built-in function name, 
3 ed signal the error. 
; e444 Higat AST OPERANDE TORENOU_ CODED NEQ TOKENSK_BUILTIN_FUNCTION 
3 3 1 SIGNAL (DBGS$_MISOPEMIS, 1, TOKENCTOKENSB_OPLEN)); 
; F308 ! Call a routine that returns a counted longword vector of 
; 7504 ! pointers that point to primary tokens of the arguments 
3 7505 ! of the specified built-in function call. The number of 
g £208 ! arguments expected in the B_FLAGS field of a built-in 
3 r200 } function operand. 
; 7509 2 ARG_LIST = DBGSGET_BIF __ARGUMENTS(.LAST_OPERANDC TOKENSB_FLAGS] 
3 £319 3 LAST_OPERANDCTOKENSB_CENGTH]); | 
3; 740 Taig 5 ! For now, we will not accept any built-in function that 
3 7404 751 H ! contains more than 2 arguments. If more than 2 are 
: Be ey : present, an invalid argument List message in signaled. 
: 7 7516 2 IF .ARG_LISTCO] LEQ 2 
3 7517 THE 
3: 7409 7518 6 BEGIN 
3: 7410 7519 6 ‘ 
3 7411 7520 6 ! Create a new operator token to represent the specific 
3 mle 7521 6 ' built-in function call and then pass this token to 
3; 741 75 ¢ 6 ! DBGSEVAL_LANG_OPERATOR to proccess the built-in 
3 7616 75 6 ! function and return its value as a primary. 
3; 7615 7524 6 : 
3 7416 7525 6 IF .ARG_LISTCO) EQu 1 
3 7417 7526 6 T 
3; 7418 7527 6 TOKEN = CREATE_OPERATOR_TOKEN(.LAST_OPERANDCTOKENSB BIFJ, 
3 7419 7528 6 LAST_OPERANDC TOKENSB_CENGTHI, 
: 7420 4544 6 - TOKENCTOKENSB_KINDJJ 
3; 7421 7530 6 ELSE 
: 74 g 7531 6 TOKEN = CREATE_OPERATOR_TOKEN(.LAST Src RAnet TOKENS BIF), 
3 74 75 ; 6 LAST _OPERANDCTOKENSB_CENGTHI, 
3 ve ¢ ie ? TOKERSK_INF IX_OP); 
3 et $ O3e2 ° PRIMPTR = DBGSEVAL_LANG_OPERATOR(.TOKEN, .ARG_LISTC1), .ARG_LISTC2)); 
3 7428 7337 6 ! Return the fact that we have built the result by now 
3 74 7538 6 ! and that it is a value descriptor. Because of the 
3: 74 7539 6 ' way the BIF tokens come through the above initialization 
3 * 1 eee ? code, this value was never set. And It Better Be! 
3 74 : P34¢ 6 RET_OPERAND_FLAGLO] = TRUE; 
: 74 754 
3; 7435 7544 END 
3; 7436 7545 ELSE 
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SIGNAL (DBGS_INVARGLIS, 1, LAST_OPERANDCTOKENSB_LENGTH]); 
— 


! Handle the Ada tick operator ee He nag after the start of 
po dn sma The symbol thus consists of just a single type 


CPRIMARYSK_ACT_START_TICK]: 
BEGIN 


! If the last operand was an identifier, we append it to 
' the current Pathname Descriptor and convert that to a 
! Primary Descriptor. 

-LAST_OPERANDCTOKENSW_CODE] EQL TOKENSK_IDENTIFIER 


F 
HEN 
BEGIN 


; 
I 
T 


First check for DEFINEd symbols. 
! Check that no invocation number is present. 


1 

i 

' 

IF .PATHDESCCPTHSB_LOCINVOC] EQL 0 

THEN 

Look up the symbol in the DEFINE symbol table. 


BEGIN 
IF DBGSDEF_SYM_FIND (LAST_OPERAND CTOKENS$B_LENGTHI, 
KIND> PRIMPTR 


DUMMY, DUMMY) 
THEN 


INE_ADDRESS 
INE ~VALUE 


! We have found a matching DEFINEd symbol. 
' Copy the descriptor into Senporery memory. 
(Fourth parameter FALSE <=> copy into tempmem). 


DBGSNCOPY_DESC (.PRIMPTR, PRIMPTR, 
DUMMY, FALSE); 
EXITLOOP; oe 
END; 
END; 
END; 


APPEND_TO_PATHNAME (PATHDESC, .LAST_OPERAND, NOT_REC_COMP) ; 
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' Call ge TSvRBOL irectly since all we need is the typeid. 
! TRUE is passed in to tell GETSYMBOL that we do want it 
to look up symbol-types as well as the normal data-types. 
DBGSSTA_GETSYMBOL(PATHDESC, TYPEID, KIND, 0, 0, 0, TRUE); 


! Check the output from getsymbol to see if a unique symbol 
} was found. If not, signal the appropriate error. 


if .TYPEID EQL 0 
THEN 


BEGIN 
OE CENPATHDESC TO_CS(PATHDESC, PATHSTRING); 
IF .KIND EQL RSTSK_NOTUNI QUE 


HEN 
SIGNAL (DBG$_NOUNIQUE. 1, .PATHSTRING) 


ELS 
If .KIND EQL RSTSK_OVERLOAD 
SIGNAL (DBGS_NOTUNQOVR, 1, .PATHSTRING) 
END SIGNAL (DBGS_NOSYMBOL, 1, .PATHSTRING); 


PRIMPTR = DBGSEVAL_ADA_TICK(.TYPEID, .TOKEN); 

' Return the fact that we have built the result by now 
' and that it is a value descriptor. Because of the 

4 way He Ada tick tokens come through the above 

' initialization code, this value was never set. 

And It Better Be! 

RET_OPERAND_FLAGCO] = TRUE; 

END 


t 
SIGNAL (DBGS_SYNERREXPR, 1, .LAST_OPERAND( TOKENSB_LENGTH)); 


EXITLOOP; 
END; 


! Handle the terminator operator my rt gt after the start of 
u 


' the symbol. The symbol thus consists of 


st a single name 


or a constant. 
CPRIMARYSK_ACT_START_TERM]: 
BEGIN 


' If the last operand was an identifier, we append it to 
' the current Pathname Descriptor and convert that to a 
! Primary Descriptor. 


' 
i 
i 
; 
IF 
TH 


-LAST_OPERANDCTOKENSW_CODE] EQL TOKENSK_IDENTIFIER 


EN 


ret 
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BEGIN 


! First check for DEFINEd symbols. 
Check that no invocation number is present. 


if .PATHDESCCPTHSB_LOCINVOC) EQL 0 
THEN 


Look up the symbol in the DEFINE symbol table. 

BEGIN 

IF DBGSDEF_SYM_FIND (LAST_OPERAND CTOKENS®_LENGTH), 
KIND, PRIMPTR, 


DUMMY, DUMMY) 
THEN 


_ 
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NE_ADDRESS 
NE ~VALUE 


! We have found a matching DEFINEd symbol. 
! Copy the descriptor into senperers memory. 
} (Fourth parameter FALSE <=> copy into tempmem). 


DBGSNCOPY_DESC (.PRIMPTR, PRIMPTR, 
DUMMY, FALSE): 

EXITLOOP; 

END; 


END; 
END; 
APPEND TO_PATHNAME(PATHDESC, .LAST_ OPERAND, NOT _REC_COMP); 


PRIMPTR ="PATHNAME_TO_PRIMARY(PATHBESC, SUBSCR_DESC 
eal -PLIPTR, SAVED_PATHDES() ; 


! Otherwise, the Last operand was a constant of some 
sort so we create a Value “escriptor for it. 


ELSE 

PRIMPTR = CONSTANT _TO_VALDESCR(.LAST_OPERAND) ; 
: Exit from the parse loop (the get-token loop). 
EXITLOOP; 
END; 


' Handle the backslash operator after a previous backslash ope- 


aoe 
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771 ! rator (e.g., A\B\C). Note that this is not allowed after a 
771 i numeric pathname. Also handle a backslash operator after an 
; 761 771 . invecet ion number. Append the last operand (which must be an 
ig 82 a identifier) to the current Pathname Descriptor. 

761 4 CPRIMARYSK_ACT_SLASH_SLASH]: 

7614 77 BEGIN 

pel? a i »NUMERIC_PATHNAME 

4 a SIGNAL (DBGS_ILLPATHELEM, 1, LAST_OPERANDCTOKENSB_LENGTH)); 


APPEND_TO_PATHNAMEPATHDESC, .LAST_OPERAND, NOT_REC_COMP) 


! Handle a dot (data qualification) after a backslash. Here we 
! complete the current Pathname Descriptor and convert it to a 
} Primary Descriptor. 


CPRIMARYSK_ACT_SLASH_DOT]: 
APPEND _TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP); 


PRIMPTR ="PATHNAME_TO_PRIMARY(PATHDESC,SUBSCR_DESC 
-PLIPTR, SAVED_PATHDESC) ; 


i i i Bi He fe te te fe | 


8 
9 

40 
76 41 END; 
76 rg 
76 774 

744 ! Handle a dot after a backslash. In PLI we do not call 

745 ! PATHNAME TO_PRIMARY until after collecting all the record 

gree } components. 

be | CPRIMARYSK_ACT_SLASH_DOT_PLIJ: 
7640 74 N 
7641 750 APPEND_TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP); 
764 751 END; 
764 P36 
7644 75 
7645 754 ' Handle a subscript parenthesis after a backslash. Here we 
So} 755 ' complete the current Pathname Descriptor and convert it to a 
764 738 ! Primary Descriptor. We then pick up all the subscript expres- 
7648 75 ' sions. 
649 758 ! 
7650 759 CPRIMARYSK_ACT_SLASH_SUBSCRI: 
7651 760 BEGIN 
765 761 APPEND TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT _REC_COMP); 
765 768 PRIMPTR ="PATHNAME_TO_PRIMARY(PATHDESC ,SUBSCR_DESC 
7654 776 -PLIPTR, SAVED _PATHDESC, TRUE); 
7655 7764 GET_SUBSCRIPTS(.PRIMPTR); 
7038 7765 END; 
765 77 
765 776 


! Handle a subscript after a backslash in Lenguege Pl. In PLI 
' we do not sncorporete the subscripts into the Primary 
Descriptor until Later. 


(PRIMARYSK_ACT_SLASH_SUBSCR_PLI): 
BEGIN 
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APPEND TO_PATHNAME(PATHDESC, .LAST OPERAND, NOT_REC_COMP); 
SAVE _SOBSCRIPTS(PATHDESC, SUBSCR_DESC); 


! Handle a subscript left bracket after a backslash for Language 
! BLISS. Here we complete the current Pathname Descriptor and 

! convert it to a Primary Descriptor. We then pick up all the 

! subscript expressions. BLISS has to be treated separately 
because it represents data differently in the RST and DST. 
t 


PRIDARYSK ACT SLASH_SUBSCR_BLIJ: 


APPEND _TO_PATHNAME (PATHDESC, .LAST OPERAND, NOT_REC_COMP); 
PRIMPTR ="PATHNAME_TO_PRIMARY (PATHDESC, SUBSCR_DESC 

-PLIPTR, SAVED_PATHDESC); 
GET _BLISS_SUBSCRIPTS(.PRIMPTR, LAST_OPERANBCTOKENSB_LENGTH)); 


! Handle the PASCAL dereference operator (*) occuring after 

! @ pathname qualified name. Append the Last identifier onto 
! the pathname. Then build the pathname into a avery 

! Descriptor. Then call the routine that handles derefencing 
! =-it just Lights the EVAL bit on the sub-node and then 
allocates a new subnode for the object being pointed to. 

C 


PRIMARYSK_ACT_SLASH_DEREF): 
BEGIN 


APPEND _TO_PATHNAME (PATHDESC, .LAST_OPERAND, NOT _REC_COMP); 
PRIMPTR ="PATHNAME_TO_PRIMARY (PATHDESC ,SUBSCR_DESC 


-PLIPTR, SAVED _PATHDESC); 
GET _DEREFERENCE(.PRIMPTR) ; 


!' Handle a PLI dereference as in A\B->C. Here we convert the 

1 left-hand-side to a Primary, and then save away the Primary. 
: The parse is then “backed up’ to the start state to pick 

; the right hand side of the ‘’=>"’. Later, in the 

! PATHNAME_TO_PRIMARY routine, the two primaries are glued 
together. 


CPRIMARYSK_ACT_SLASH_DEREF _PLI): 
BEGIN 


: Obtain value of expression to left of ‘=>’. 
APPEND_TO_PATHNAME(PATHDESC, .LAST OPERAND, NOT _REC_COMP); 
PLIPTR™= PATHNAME_TO_PRIMARY(PATHDESC, SUBSCR_DESC 
-PLIPTR, SAVED _PATHDESC); 

IF (.PLIPTRCDBG$B_DHDR_KIND] NEQ RSTS$K_DATA) OR 
weg esPte DBG$B-DHDR-F CODE) NEQ RSTS$R_TYPE_PTR) 
BEGIN 

LOCAL 
NA 


Pear $3) 
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; 77 7831 DBGSNPATHDESC TO CS(PATHDESC, NAME); 

3 rt § f ¢ SIGNAL (DBGS_VALNGTADDR, 1, .NAME); 

> 7725 7 : 

3 a $ f 5 Re-initialize. 

: ad 7 PRIMPTR = 0; 

3; 77 7 4 NUMERIC_PATHNAME = FALSE: 

: 77 7 CHSFILLTO, DBGSK_PATHNAME SIZE®*ZUPVAL, PATHDESC); 

: 7731 7840 ATHVECTOR = PATADESCCPTHSA_PATHVECTOR]; 

3; 77 § 7841 CHSFILL(O, SUBSCR_DESC_SIZE, SUBSCR_DESC); 

3 a4 f ¢ ? END; 

: 7735 7844 4 

3 v7 7845 & ! Handle the Ada tick operator after a backslash. Here we 

3; 77 7 $ 4 ‘ just complete the Pathname Descriptor and convert it to a 

3 a ; f 7 } rimary Descriptor. We are then done with the symbol. 

: 7740 , ‘3 4 CPRIMARYSK_ACT_SLASH_T1CK]: 

; 074 , 31 APPEND_TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP); 
: 7764 ree ! Call GETSYMBOL directly since all we need is the typeid. 
3; 7765 7854 ! TRUE is passed in to tell GETSYMBOL that we do want it 
3 ere 4 $2 } to look up symbol-types as well as the normal data-types. 
: Abs 785? DBGS$STA_GETSYMBOL (PATHDESC, TYPEID, KIND, 0, 0, 0, TRUE); 
3 7750 7859 ! Check the output from getsymbol to see if a unique symbol 
3 ae}! . ? was found. If not, signal the appropriate error. 

; 7738 786 if jTWPEID EQL 0 

> 7755 Tass 4 BEGIN 

; 7756 7865 6 DBGSNPATHDESC_TO_CS(PATHDESC, PATHSTRING);: 

3 7757 7866 6 IF .KIND EQL RSTSK_NOTUNIQUE 

3; 7758 7867 6 N 

3; 7759 7868 6 SIGNAL (DBGS$_NOUNIQUE, 1, .PATHSTRING) 

3; 7760 7869 6 

; 7761 7870 6 IF .KIND EQL RSTSK_OVERLOAD 

3 r7ee 7871 6 

3 ore te ° SIGNAL (DBG$_NOTUNQOVR, 1, .PATHSTRING) 

: 7765 7a “ne SIGNAL (DBG$_NOSYMBOL, 1, .PATHSTRING); 

: 776 7876 ‘ 

; 1768 , , PRIMPTR = DBGSEVAL_ADA_TICK(.TYPEID, . TOKEN); 

: 7770 7 8 ' Return the fact that we have built the result by now 

3; 7771 7880 ' and that it is a value descriptor. Because of the 

3; 777 oe) ! way the Ada tick tokens come through the above 

3; 777 7 Hf ! initialization code, this value was never set. 

3 7774 788 !' And It Better Be! 

3; 7775 7 se ‘ 

3; 777 7885 RET_OPERAND_FLAGCO) = TRUE; 

3; 777 7 ¥] 

; 7778 788 EXITLOOP; 
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END; 
Handle the terminator operator after a backslash. Here we 
just complete the Pathname Descriptor and convert it to a 
rimary Descriptor. We are then done with the symbol. 
thon 7 t+ tac emma shat 
APPEND _TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT _REC_COMP); 


PRIMPTR ="PATHNAME_TO_PRIMARY(PATHDESC,SUBSCR_DESC 
.PLIPTR, SAVED_PATHDESC) ; 
EXITLOOP; 


ee 


Handle a slash after an ‘OF’ in COBOL. 
CPRIMARYSK_ACT_DOT_SLASH_ COB]: 
eh FE Es -LAST_OPERAND, NOT_REC_COMP); 
! Handle a dot (data qualification) after another dot. Check 
' that the Last operand is an identifier and that it is a valid 
' component name of the current record type. Get its SYMID, 
H etc., and add it to the Primary Descriptor being built. 
CPRIMARYSK_ACT_DOT_ DOT]: 
GET_RECORD_COMPONENT(.PRIMPTR, LAST_OPERAND[ TOKENSB_LENGTH)) ; 


' Handle a dot after another dot in PLI. In PLI we do not 
! call PATHNAME_TO_PRIMARY until after collecting all 
! the record components. 


' 

‘ 

' 

‘ 

CPRIMARYSK_ACT_DOT_DOT_PLI): 

5 he ertrtemalin tine »LAST_OPERAND, REC_COMP); 


Poneto an “‘OF’’ operator after another ‘OF’ operator © 
i 


CPRIMARYSK_ACT_DOT_DOT_COB): 
APPEND_TO_PATHNAME (PATHDESC, .LAST_OPERAND, COB_REC_COMP); 


: Primary Descr 
. p 
! the Primary Descriptor. 
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3 f ook 4 CPRIMARYSK ACT _DOT_SUBSCR2: 

: 7 $303 ; GET_RECORD_COMPONENT( .PRIMPTR, LAST_OPERAND[ TOKENSB_LENGTH)); 
gg. 794 GET" SUBSCRIPTS(.PRIMPTR); 

3 7 » 8 4 END; 

if fea 

:7 : 79 g 4 ! Handle a subscript after a dot in PLI. In PLI we do not 

3; 7844 79 4 ' cali PATHNAME_TO_PRIMARY until after picking up all 

3 f 5 6 3 ? the record components. 

: , 5 1996 4 CPRIMARYSK ACT _DOT_SUBSCR_PLIJ: 

: 7 § 1998 ; APPEND _TO_PATHNAME(PATHDESC, .LAST_OPERAND, REC_COMP); 

3 reey 795 SAVE_SOBSCRIPTS(PATHDESC, SUBSCR_DESC); 

3; 7851 7960 4 END; 

AR RES 

+ 7854 7963 4 ! Handle the subscript operator after the "OF" operator 

3 ree? ase: 2 ' im COBOL. 

; Tas? 7966 4 CPRIMARYSK_ACT_DOT_SUBSCR_COB): 

3; 7858 796 BEGIN 

3: 7859 7968 APPEND _TO_PATHNAME(PATHDESC, .LAST_OPERAND, NOT_REC_COMP); 
: 7860 9 SAVE_SOBSCRIPTS(PATHDESC, SUBSCR_DESC); 

He Bie z= 

: Pees 7972 & ' Handle the PASCAL dereference operator (*) occurring after 
3: 7864 79735 4 ' a@ dot (data qualification). Here we call a routine which 
; 7865 7974 4 ' appends the last operand (re pgeens ven a record component) 
; 7866 7975 4 ! onto the Primary Descriptor being built. We then call the 
3: 7867 7976 4 ' routine that handles derefencing--it just lights the EVAL 
3; 7868 7977 & ' bit on the sub-node and then allocates a new subnode for 
3 rose re ? the object being pointed to. 

: , 4 7980 4 CPRIMARYSK_ACT_DOT _DEREF): 

: re 798 GET_RECORD_ COMPONENT( .PRIMPTR, LAST_OPERANDCTOKENSB_LENGTH)); 
; rere 79 GET DEREFERENCE(.PRIMPTR); 

3; 7875 79 4 END; 

We 

37 | 7987 4 ! Handle a PLI dereference as in A.B->C. Here we convert the 
3; 787 79 4 ' Left-hand-side to a Primary, and then save away the Primary. 
3 7 79 4 ' We loop back to the start state to pick up the rest 

3 ’ 1 aay! : of the expression. 

: 7 ; 7992 & CPRIMARYSK_ACT_DOT_DEREF_PLI): 

3 : aad, BEGIN 

: t 1995 ! Save away the Primary constructed so far. 

; at 799 APPEND_TO_PATHNAME(PATHDESC, .LAST_OPERAND, REC_COMP); 

; 7889 199 PLIPTR™= PATHNAME_TO_PRIMARY(PATHDESC, SUBSCR_DESC 

F . 


-PLIPTR sAvED PATHDESC); 
IF (.PLIPTRCDBG$B_DHOR_KIND) NEQ RST$K DATA) OR 
(.PLIPTRCDBGSB-DHDR-FCGDE) NEQ RSTSR_TYPE_PTR) 


oo 


Bc 93:19:55 Ebkaus.SacSbaceansén-oss;1 = 8°. 385 


THEN 
BEGIN 
LOCAL 
NAME ; 
epsnra toe sc TO_CS(PATHDESC, NAME); 


00 SIGNAL(DBGS_VALNOTADDR, 1, .NAME) 

oie END; 
es D0 Re-initialize. 
+308 3 PRIMPTR = 0; 
ee: 1 NUMERIC_PATHNAME = FALSE; 
7905 14 CHSFILLTO, DBGSK_PATHNAME SIZE®*ZUPVAL, PATHDESC); 
2906 15 PATHVECTOR = PATADESCC(PTHSA_PATHVECTOR); 
790 O18 CHSFILL(O, SUBSCR_DESC_SIZE, SUBSCR_DESC); 
+309 O18 é “tet 
7910 019 4 
7911 020 4 ! Handle the Ada tick operator after a dot (data qualifica- 
rig 021 4 ! tion). Call the routine that looks up the SYMID for the 
791 0 ¢ & ! record component and adds that to the Primary Descriptor. 
7914 0 & ' Then exit the parse Loop. 
7915 024 4 } 
aay 3 5 4 CPRIMAAYSK ACT _OOT TICK: 
eis o ; APPEND_TO_PATHNAME(PATHDESC, .LAST_OPERAND, REC_COMP); 
7920 8029 ' Call GETSYMBOL directly since all we need is the typeid. 
7921 8030 ! TRUE is passed in to tell GETSYMBOL that we do want it 
ny ¢ 3 1 to look up symbol-types as weil as the normal data-types. 
a $ B038 DBGSSTA_GETSYMBOL (PATHDESC, TYPEID, KIND, 0, 0, 0, TRUE); 
7926 $0 5 ! Check the output from getsymbol to see if a unique symbol 
resi + was found. If not, signal the appropriate error. 
OOS \ da 
7931 040 6 BEGIN 
79 041 6 DBGSNPATHDESC TO _CS(PATHDESC, PATHSTRING); 
jad Og 2 rz aid EQL RSTSK_NOTUNIQUE 
44 5 Bee ? SIGNAL (DBGS_NOUNIQUE, 1, .PATHSTRING) 
7937 Be ? IF .KIND EQL RSTSK_OVERLOAD 
A444 at ° SIGNAL (DBG$_NOTUNQOVR, 1, .PATHSTRING) 
aad B30 a SIGNAL (DBG$_NOSYMBOL, 1, .PATHSTRING); 
794 05 , 
ree 038 PRIMPTR = DBGSEVAL_ADA_TICK(.TYPEID, .TOKEN); 
794 055 ' Return the fact that we have built the result by now 
794 B28 ! and that it is a value descriptor. Because of the 
7948 05 : way the Ada tick tokens come through the above 
7949 8058 ! initialization code, this value was never set. 


pn 19be 13:19: 
And It Better Be! 


RET_OPERAND_FLAGCO] = TRUE; 
EXITLOOP; 
END; 
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Handle the terminator operator after a dot (data qualifica- 
tion). Call the routine that looks up the SYMID for the 
record component and adds that to the Primary Descriptor. 
Then exit the parse Loop. 


PRIMARYSK_ACT_DOT_TERM): 


sss 
SNISSEeS 


333323 


0 
8074 GET_RECORD_COMPONENT(.PRIMPTR, LAST_OPERANDCTOKENSB_LENGTH)); 
se 8075 EXITLOOP; 
796 807 3 
aM 
079 ' Handle the end of the Primary after a dot in PLI. At this 
Soet : point we call PATHNAME_TO_PRIMARY, and then exit the Loop. 
808 CPRIMARYSK_ACT_DOT_TERM_Pi.1]: 
APPEND_TO_PATHNAME(PATHDESC, .LAST_OPERAND, REC_COMP); 
PRIMPTR ="PATHNAME_TO_PRIMARY (PATHDESC, SUBSCR_DESC 
8086 .PLIPTR, SAVED_PATHDESC); 
8087 EXITLOOP; 
8088 END; 
8089 
8090 ss 
8091 ! Handle the end of the Primary after an ‘‘OF’’ operator 
93 } (record component selection)? in COBOL. 
094 CPRIMARY$K_ACT_DOT_TERM_COB): 
8095 BEGIN 
809 APPEND_TO_PATHNAME(PATHDESC, .LAST OPERAND, NOT _REC_COMP); 
809 PRIMPTR ="PATHNAME_TO_PRIMARY (PATHDESC,SUBSCR_DESC 
8098 -PLIPTR, SAVED_PATHDESC) ; 
944 FR TLOOP: 


Handle a dot (data qualification) after subscripting. We do 
nothing with the dot until after we pick up the component 

' name. However, we do call a routine that fixes up the 

! bounds in the array subnode after subscripting has been 
completed. 

CPRIMARYS$K_ACT_SUBSCR_DOT): 

FIX_UPPRIMARY(.PRIMPTR); 


_ _- 
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' Handle a dot after a subscript in PLI. There is actually 
nothing to do here. 


CPRIMARYS$K_ACT_SUBSCR_DOT_PLI): 
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— 
END; 
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Handle subscri eine parentheses immediately after a previous 

instance of subscripting. Just do the subscripting normally. 
Pick up the subscript expressions and add their values to the 
Primary Descriptor being built. 


PRIMARYSK_ACT_SUBSCR_SUBSCRI: 
GET_SUBSCRIPTS(.PRIMPTR) ; 


— ss 
a te 


Handle a subscript immediately after another subscript 
in PLI. In PLI we save up the subscripts until after we 
collect a full pathname including record components. 
PRIMARYS$K_ACT_SUBSCR_SUBSCR_PLIJ: 


~  epeencme icra etme v SUBSCR_DESC); 


Se 


! Handle a PASCAL dereference operator (“*) Sccyr nag, Sree 


2.00 G9 CD CD CD GD CD CD CD co. 
totaotatatatatatstottototototatatatotatot=totates 


' 
¢ ' @ subscripting operation. First call a routine that fixes 
3 ! up the bounds in the array subnode after subscripting has 
34 ' been completed. Then call the routine that handles 
35 ! derefencing--it just Lights the EVAL bit on the sub-node and 
33 : then allocates a new subnode for the object being pointed to. 
38 CPRIMARYS$K_ACT_SUBSCR_DEREF]: 
39 BEGIN 
8040 FIX_UP_PRIMARY( .PRIMPTR); 
8061 GET~DEREFERENCE(.PRIMPTR); 
ok END; 
04 
044 
04 ' Handle a PLI dereference as in A(2)->B. Here we convert the 
8 ' Left-hand-side to a Primary, and save away that Primary. 
8 ' We loop back to the start state to pick up the rest 


1 
' 
1 
of the expression. 
C 


ee 


RR 
OOOneuw 
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805 PRIMARYSK_ACT_SUBSCR_DEREF_PLI): 

8091 BEGIN 

8088 Save away the Primary obtained so far. 

boss PLIPTR = PATHNAME_TO_PRIMARY(PATHDESC,SUBSCR_DESC 
096 .PLIPTR, SAVED PATHDESC); 

5 1 IF (.PLIPTRCDBGSB_DHDR_KIND] NEQ RSTSK DATA) OR 

058 1 (.PLIPTREDBGSB-DHDR7F CODE] NEQ RSTSR_TYPE_PTR) 
059 168 THEN 
060 1g BEGIN 
061 170 LOCAL 
bo¢ 171 NAME; 
06 172 DBGSNPATHDESC_TO_CS(PATHDESC, NAME); 
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Fae OSS _VALEST ADEN, 1, »NAME); 


+ ars ER 


} Re-initialize. 


PRIMPTR = 0; 
NUMERIC_PATHNAME = FALSE; 
CHSFILLTO, DBGSK_PATHNAME SIZE*ZUPVAL 


071 PATHDESC); 
i 1 PATHVECTO = PATADESCCPTHSA_PATHVECTOR); 
07 : CHSFILL( , SUBSCR_DESC_SIZE> SUBSCR_DESC); 


Handle subscripting followed by the terminator operator. 


subscript. Here we just pick up the subscripts. 


CPRIMARYSK_ACT_DEREF_SUBSCR): 
GET_SUBSCRIPTS(.PRIMPTR); 


3 
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H 1 

3 1 

3 1 

r 1 

3 1 

: 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 1 

3 : 5 

; 8078 1 ! First call a routine that fixes up the bounds in the array 
3; 8079 + ! subnode after subscripting has been completed. The 
3; 8 189 ! Primary Descriptor is now complete, so we exit the parse 
; et 1) Loop. 

; 808 198 CPRIMARYSK_ACT_SUBSCR_TERM): 

3; 8084 19 8 

; 8085 194 FIX_UP_PRIMARY(.PRIMPTR); 

3 O86 195 EXITLOOP; 

3; 808 138 3 

3; 8088 19 

3; 8089 198 

3; 8090 199 ! Handle a subscript followed by the end of the expression 
: 1 200 ! in PLI. 

3 £095 201 : 

3; 809 $08 CPRIMARYSK_ACT_SUBSCR_TERM_PLIJ: 

; $098 204 PRIMPTR = PATHNAME_TO_PRIMARY(PATHDESC,SUBSCR_DESC, 

3; 8096 205 -PLIPTR, SAVED_PATHDESC); 
; 8097 soe EXITLOOP; 

; 8098 0 END; 

3; 8099 208 

3 $90 

: $14 : Handle a PASCAL dereference operator (*) followed a dot. 
3 $i¢ ! (E.g. "A*.B"'). We actually do nothing here since the deref- 
; 21 ! erence operator was handled already, and the dot operator is 
3 sig not handled until after we pick up the component. 

3 $18 CPRIFARYSK_ACT DEREF _00T3: 

; 51 

3 22 ! Handle a PASCAL dereference operator (*) followed by a 


ee ee ek ed ed ot = ot 8 os = ot I = 


COO WO UE WN OOM 


SSOVEARAN=SSRIS AE AVS 


! Handle a PASCAL dereference operator (*) followed by another 
! dereference. We call the routine that handles derefenc ing-- 
! it just Lights the EVAL bit om the sub-node and then allo- 


: 53 & 
LAs 1 
3; 8124 4 
: $182 ¢ 4 
; 81 § § 4 
; 81 : 4 
3 3 8 4 
3 81 9 4 
3; 8131 40 4 
; 81 ¢ 41 4 
3; 81 eg 4 
; 81 4 4 
3; 8135 44 4 
; 81 45 4 
3; 81 a6 4 
3; 8138 47 4 
3; 8139 48 4 
; 8140 8249 4 
3; 8141 8250 4 
3 Bie¢ 8251 

3; 814 8 26 

3 81446 825 

3 8145 Ss2¢ 

3 8146 8255 

3 8147 S$ 28 

3; 8148 825 

; ai32 SS26 

3; 8150 8259 

3 312) 8260 

3 13 8261 

3; 815 8262 1 
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cates a new subnode for the object being pointed to. 


{PRIMARYSK_ACT_DEREF _DEREF]: 
GET_DEREFERENCE (7PRIMPTR); 


c§ 


s-32 V4.0-74 


DBGPARSER.B32;1 


! Handle a PASCAL dereference operator (*) followed by a termi- 


' nator. 
the pars 


CPRIMARYSK 
EXITL 


The Primar 
e loop. 


ACT_DEREF_TERM]: 
oop; 


: Any other CASE index constitutes an internal DEBUG error. 


CINRANGE, 
$DBG_E 


TES; 


OUTRANGE): 


RROR('DBGPARSER\PRIMARY_PARSER 10°); 


! End of ELSE-clause for operators 


! End of the get-token loop 


! We are all done parsing the primary. Return a pointer to the 


descriptor we have constructed. 
RET 
RET 


E10 
END; 


NO 


vw 
Wwe NO 


TOKENCO) = .PRIMPTR; 
RN; 


viTn OO 


mer 


sr NO 


-PSECT DBGSPLIT,NOWRT, 


y Descriptor is now complete, so we exit 


SHR, PIC,0 


Page 248 
9 3e8 


4C 30 031A0 TOKEN_IS_INTEGER: 
“BYTE 48, 76 
3142 -BLKB 1 
00. O31A3 P.AXG: .BYTE 0 
00 O31A4 P.AXH: .BYTE 0 
69 63 65 64 08 3143 P.AXI: ASCII <8>\decimal \ _ 
67 6E OF $¢ be \s P.AXJ: .ASCII <16>\longword integer\ 
50 47 42 44 18 3BF P.AXK: ASCII <27>\DBGPARSER\<92>\PRIMARY_PARSER 10\ 
50 SF 59 52 41 O31CE 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 60000 ENTRY DBGSPRIMARY PARSER, Save R2,R3,R4,R5,R6,R7,-; 6691 
5E FBAB CE 9E 0000 MOVAB -1112(SP). SP 
50 00000000" EF D0 00v0 MOVL SAVED_TOKEN, RO 


: 6851 


: 
-Sep- 210: AX-11 Bliss-32 V4.0-74 Page 249 | 

voee00e 16-Sep-1984 93519345 DEBUG. SRC IDBGPARSER.B32; 1 38) V 
CMPB (AP), #6 | ; 6840 : 

| = $5 3B Oo0s BLEQU 2$ Pas 
be 93 b001 gears Soak : 

14 BC 1C Re p 3 MOVL 28(AP), @RET_TOKEN : 6854 ; 

04 C ; | 

T_OPERAND + 6867 

10 ie 04 Re 50 $090 se: Move OPERAND EXPECTED FLAG, OPERAND_EXPECTED : 6868 | ; 

59 20 AC 00 00025 MOVL 3aCaP) TATE_INDEX : 6869 : 

1C AC 4 0029 MOVL (AP), PRIMPT : 6870) : 

ate a 00 BRB 4$ ; 6840 ; 

0 D5 000 p 2$: TSTL = RO ; 6 | : 

5 if $00 4 MOVE a TOKEN + 6885 | ; 

” 00000000' eF bs 09037 CLRL SAVED_TOKEN ; ont | ; 

na D4 $0040 38: CLRL —_ LAST_OPERAND ; 6822 : 

| 10 AE 04 AC 00 0004¢ MOVL OPERAND, EXPECTED_FLAG, OPERAND_EXPECTED 6898 | 
59 D4 0004 LRL tel 9899 
| 24 AE 04 00049 CLRL = PRI : $900 
MERIC_PATHNAME ; 

| 00D0 = BF 00 6E . 00 Be dood moves WON CSPY. #0, #208, PATHDESC ; sae : 
FF30 CD 00056 : ie : 

, PATHVECTOR ; : 

| 0270 8F 00 ae “ieee 60 5 0003¢ moves atts pe Ty #624, SUBSCR_DESC ; 6904 ; 
| 40 85 ong Soe? CLRL -PLIPTR : 905 
7E 0c AC 7D 00069 4$: MOVO TERM_LIST, -(SP) ; 3 

08 AC DD 0006D PUSHL  ADDRESS_EXPRESSION poe 

1C AE DD 00070 PUSHL OPERAND-EXPECTED : | 3 

FO98 = CF 04 FB 00073 CALLS +e DBGSLEXICAL_ SCANNER : | ; 

a0 39 4 $0078 BBC #2, DBGS$GL_DEVELOPER, 5$ ; 6920, ; 

Shy armeppee vee 58 DD 00083 PUSHL TOK ces | ; 

a Sh 24 Ae 09 OO0BA 5$: HOVE PRIMPTR. “R10 ; 6929, ; 

Ae ; 6930 

OPERAND_EXPECTED, 6$ ; | : 

* sh 6 b3 $5090 istt LAST_OPERAND wer 
| 01 2B 9] $0098 CMPB = (TOKEN), #1 ; 6932 | : 
48 12 $0098 BNEQ ps : 

50 02 A& 3C 0009D MOVZWL 2(TOKEN), RO : 3 

| 0000" €F 50 €1 OOOAI BBC RO, TOKEN_IS_INTEGER, 6$ pet : 
| aap 34 08 8 5A $0089 Nites 8 FOKEN) RO | ; 
| 3 be 66 00088 DIVLe #4, RO Foo! 3 
03 AO 5F 008 PUSHAB 3(RO) | ; 

000000006 00 01 F ; 0B6 CALLS #1, DBGSGET_TEMPMEM : 

o 8 AM | ae ot Het, ‘vel — |} 

0c BE ©0100 «BF AB sa BISw2 #256 aTEMPTOKEN : 6939 : 

em 9 FO coc INSV #9, #16, #16, @TEMPTOKEN : 6940 : 

yet he 9 50 08 As A Bap} MOV ZBL 8( TOKENS, RO | 

ae ; 6942 

1 00007 ADDL3 #12. _TEMPTOKEN, ~(SP) 

of $8 A 95 58 000p¢ MOVC3 RO, S(TOKEN), a@(SP)+ : : 


1 
DBGPARSER 1$- -Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 250 D 
v04-000 14- Haat Pi 03: 19:43 DEBUG. SRC JDBGPARSER.B32;1 . (385 V 
58 04 AF po 0 E1 MOVL  TEMPTOKEN, TOKEN 1 6943 
01 6 E5 6$: CMPB =s-« (TOKEN), #1 + 6951 
1F 12 000E8 BNEQ 8$ ; 
12 10 AE f OOEA BLBS OPERAND EXPECTED, 7$ + 6954 
08 AS OF OEE PUSHAB 8&( TOKEN + 6956 | 
or DD OOOF PUSHL #1 : 
000289AA 8F DD 000F3 PUSHL #166314 : 
000000006 00 03 FB 000F9 CALLS #3, LIBSSIGNAL ; | 
10 AF D4 9100 7$: CLRL  OPERAND EXPECTED + 6958 | 
56 5 B60 010 MOVL § TOKEN, CAST_OPERAND : 6959 | 
FF60 31 00106 BRW 4$ : 6951 | 
1E 01 As Es 0109 8$: BLBS  1(TOKi.', 11$ + 6979. 
56 D5 0010D TSTL —_LAST_OPERAND + 6986 | 
08 if O10F BNEG  10$ ~ ; 
16 BC DO 00111 9S: MOVL TOKEN, @RET_TOKEN + 6989 
18 BC D4 00115 CLRL § @RET_OPERAND_ FLAG + 6990 
04 00118 RET + 6988 | 
00000006 Ef 58 DO 00119 10$:  MOVL. TOKEN, SAVED_TOKEN : 6998 | 
8 00000000" EF 3 0120 MOVAB PRIMARY TERM-TOKEN, TOKEN + 6999 | 
18 BC 01 DO 00127 MOVL #1, @RET_OPERAND FLAG ; 7000. 
09 10 AE Eg 09128 11$:  BLBC OPERAND EXPECTED; "38 : 7010 | 
02 68 91 O01 ¢F CMPB = (TOKEN) > #2 > 7011 
09 12 00132 BNEQ 13$ ; | 
17 10 AE EB 00134 BLBS § OPERAND_EXPECTED, 14$ > 7012 
02 68 91 00138 12$:  CMPB (TOKEN)? #2 : 7013) 
12 12 00138 BNEQ 14 ; | 
OC AS 9F 0013D 13$:  PUSHAB 12( TOKEN) : 7015. 
01 DD 00140 PUSHL ; | 
00028982 8F OD 00148 PUSHL 6322 ; | 
000000006 00 03 FB 0014 CALLS ase L16SS1GNAL ; 
02 68 91 OO14F 14$: (MPR Ss (TOKE : 7018 
24 13 00152 BEQL 16$ F 
56 » 00154 TSTL LAST_OPERAND 5 7020 
0€ 1 00156 BEQL  15$ ~ : 
FFFFFFFF 8F 73 o Op 138 cror 7 OPERAND, #-1 3 7025, 
01 66 91 00161 CMPB = (LAST_OPERAND), #1 : 7028 | 
12 13 00164 BEQL 16$ : 
0c AS OF 00166 15$:  PUSHAB. 12(TOKEN) : 7030. 
01 DD 00169 PUSHL #1 ; 
00028982 8F DD 00166 PUSHL #166322 ; 
000000006 00 03 FB 00171 CALLS #3 LIBSSIGNAL ; 
04 68 91 00178 168: CMPB sé TOKEN), : 7035 
04 13 O78 BEQL 178 ; | 
10 AE 1 p 17D MOVL #1, OPERAND_ EXPECTED : 7037. 
14 AE 02 AB 3C 00181 17$: MOVZwL 2(TOKEN), OPCO : 7048. 
00000000'FF49 DF 00186 18$:  PUSHAL SPRIMARY *TABLECSTATE_ INDEX) > 7049 | 
16 AE 9E 08 90 FD 0180 cCHPZV #0, #8 , B(SP)+, OPCOBE : 
00000000"FF49 DF 0195 PUSHAL SPRIMARY _ TABLECSTATE_ INDEX) > 7051 
2 12 0019 BNEQ 19% 3 
0c AS OF uA PUSHAB 12( TOKEN) : 7053 
oN DD OO1A PUSHL #1 ; 
000000006 00 aneeerts ; PP ah CALS #3° OLBSSIGNAL 
3 D6 O18 19$ INCL STATE_INDEX > 7055 
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-000 14-Sep- DEBUG. SRC JDBGPARSER.B32;1 

1 DD 0023 PUSHL ; : 

00028362 8F DD if PUSHL #164706 : ; 

000000006 00 3 F 46 CALLS i LIBSSIGNAL ; ; 
6 1 40 BRB 2 

FF30 CD 0101 8F BO O024F 228 MOVW $5 7, PATHDESC : 7081 : 

6B 00000000" EF f 26 MOVAB cape (PATHVECTOR) : 7085 ; 

50 02 Ab 3C 00260 238 MOVZWL 2(LAST_OPERAND) : 7106) : 

BB N_IS_IN PR. : ; 

03 00000000" EF m 6 6 64 BBS RO, T TOREN_1S_ fEGER, 248 

FESA cD COT0E BF BO 00 GF 248: MOVY «#270, STRDESCS2 * 7109 | : 

FE58 CD Ab B 0 6 MOVZBW BCLAGT. OPERAND), STRDESC + 7111) ; 

FE5C 3G A6 9E 0027 OVAB (R6), “STRDESC +4 ; ite. ; 

FF34 CD 9F 00282 PUSHAB PATHDESC +a. + 7113, ; 

FE58 CD 9F 00286 PUSHAB STRDESC ; : 

000000006 00 2 FB 002BA CALLS #2, OTSSCVT_TI_L ; | ; 

OC A DO 00291 MOVL RO. STATUS ; | ; 

1 Oc AE €8 00295 BLBS STATUS, 25$ 7 7114) ; 

OC AE DD 00299 PUSHL STATUS : 7117. ; 

08 A6 SF 0029C PUSHAB 8(LAST_OPERAND) : | : 

01 OD 00 OF PUSHL #1 ; F 

0002898A 8F DD 002A1 PUSHL #166282 ; | ; 

000000006 00 04 EB 00 A7 CALLS 44, LIBSSIGNAL ; ; 

FF30 CD 01 90 00 AE 25$ MOVB PATHDESC + 7120! ; 

FF31 CD 0101 8F B80 00 B MOVW ao87" PATHDESC+1 ; aay ; 

6B 00000000' cf 9€ O02BA MOVAB P.AXH, (PATHVECTOR) : rige : 

08 AE 1 00 002C1 MOVL #1, NUMERIC_PATHNAME > 7123) ; 

72 «11 008¢3 26$ BRB : 7106) ; 

FF32 CD 95 002C7 278 TSTB PATHDESC+2 : 7149 : 

Od 13 002¢B BEQL $ ; : 

00028A12  8F DD 002cD PUSHL #166418 + 7151 F 

000000006 00 01 FB 00203 CALLS #1, LIBSSIGNAL ; : 

- FESA CD 010E 8F B80 003A 28$ VW #270, STRDESC+2 : 7157| 3 

FES58 = CD OC As 98 Oe MOVZBW 12(TOKEN), STRDESC > 7159) ; 

FESC = CD OD ABS 9E 002E7 VAB 13(R8), STRDESC+4 : 7160, ; 

FF34 CD OF OED SHAB PATHDESC+4 + 7161 : 

FE58 CD OF O02F1 PUSHAB STRDESC ; : 

000000006 00 98 8 aoere CALLS 2, OTsscvt_ TILL ; : 

20 OC AE €8 00300 BLBS STATUS. 29$ : 7162 ; 

OC AE BD 0304 PUSHL > 7167 F 

00000006" EF 9F 0307 PUSHAB AN > 7166 | 3 

FE58 CD pp 0030p USHL STRDESC ; | ; 

00000000' EF 9F 00 11 PUSHAB P.AXI : 7165. : 

3 pd 00317 PUSHL # + 7164. : 

00028678 BF BD 0319 PUSHL #167544 : | : 

OC AB OF 0031F PUSHAB 12( TOKEN) ; | ; 

1 0D 2 PUSHL ; ; 

0002898A 8F ODD 4 PUSHL #166282 : | ; 

000000906 00 9 EB O32A CALLS 4&9, LIBSSIGNA : | : 

FF32 CD FF CD 1 81 00331 298: ADDB3 #1. PATHDESC,  DATHDESC#2 : 7169 : 

46 11 9 30$: BRB > 7064. : 

01 02 Ag 81 E 1$: CMP (LAST_OPERAND), #1 3 7186 : 

FF32 CD 98 0 41 TSTB = PATHDESC +2 > 7194) : 

19 1 45 BNEQ 32$ ; ; 

20 AE OF 00347 PUSHAB DUMMY : 7201 


merge 


F 
16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 253. C 
1ergeh= 138s 98:19:45 «| HANSEL Bhigsczs NeeO-248 9 32F \ 
4 AE OF O034A PUSHAB DUMMY ; | ; 
C AE 9F 0034 PUSHAB PRIMPTR : ; 
ae: RUSS GiMSer once : : 
000000006 09 : FB 6 CALLS #5, DGSDEF _SYM_FIND : | : 
0 5 D BLBS RO, 33$ : : 
O2EC 31 6 tH BRW : : 
01 30 AE D4 0 6 7 CPL KIND, #1 + 7206. ; 
05 30 AF D} 0 69 CMPL KIND, 65 + 7207. : 
F if 6D BNEQ  32$ : : 
7E p oF 34$: CLRL  =(SP) + 7214) : 
4 AE OF 1 PUSHAB DUMMY ; : 
C AE 9F 00374 PUSHAB PRIMPTR : : 
0 AE dD 00377 PUSHL PRIMPTR : : 
000000006 00 04 FB 0037A CALLS #4, DBGSNCOPY_DESC ; : 
FCES 31 00381 358: BRW + 7218) ; 
01 02 Ag jt 0 Bs é$: cMPW (LAST_OPERAND), #1 : 7263 : 
FF32. CD 95 0038A TSTB —~ PATHDESC+#2 : 7271, : 
19 12 0038 BNEQ 37$ : | : 
0 AE 9F 0039 PUSHAB DUMMY : 7278. ; 
4 AE 9F 0039 PUSHAB DUMMY : | 3 
C AE 9F 00396 PUSHAB PRIMPTR : : 
08 AS oF itt PUSHAB BLLAST OPERAND) ; | : 
| 000000006 00 0° FB 0039 CALLS #5, DBGSDEF _SYM_FIND : : 
03 0 3 003A6 BLBS RO, 38$ : 3 
02C8 31 003A9 37$:  BRW : | : 
01 30 AE 01 OO3AC 38$:  CMPL KIND, #1 : 7283. : 
06 13 00380 BEQL 39$ F) 3 
| 05 30 AE 01 003B2 CMPL KIND, #5 3 7284 3 
Fi 12 00386 BNEG  37$ F | ; 
| 7E 04 003B8 39$:  CLRL =(SP) : 7293 | : 
24 AE OF OO3BA PUSHAB DUMMY ; | ; 
| 2C «=6AE «OOF 003BD PUSHAB PRIMPTR : ; 
30 AE DD 003C0 PUSHL PRIMPTR ; : 
| 000000006 00 04 FB 003C3 CALLS #4, DBGSNCOPY_DESC : | : 
O2CC 31 OO3CA BRW 7 : 7305 | : 
01 02 A6 Bi 003¢D 40$:  CMPW 2(LAST_OPERAND), #1 : 7333. ; 
40 if 0301 BNEQ ; : 
FF32 CD 95 00303 TSTB  PATHDESC+2 : 7341. ; 
4C 12 00307 BNEQ 43$ : 3 
0 AE OF 6 D9 PUSHAB DUMMY : 7348 ; 
4 AE 99F 0030C PUSHAB DUMMY ; : 
C AE OF 003DF SHAB PRIMPTR ; : 
C AE 9F 00 Ee PUSHAB KIND ; : 
| 08 A6 OF OO3E PUSHAB &8(LAST_OPERAND) ; : 
000000006 90 : FB £8 CALLS 4&5, DBGSDEF _SYM_F IND ; : 
O.€ EF BLBC ~=-_—«&RO,. «G38 : : 
01 30 AE D4 f CMPL KIND, #1 > 7353. : 
06 13 003F BEQL 4 ; : 
05 30 at D1 003F CMPL KIND, #5 > 7354_ : 
12 O03FC BNEQ 43$ F : 
E p4 FE 41$:  CLRL (SP) : 7363. ; 
34 AE 9F 004 USHAB DUMMY : : 
C AE 9F 0040 PUSHAB PRIMPTR ; : 


1 | , 
-Sep- 10: -11 Bliss-32 V4.0-74 Page 254) 
oBcransc iSoseoct9ps 08:10:15 yAKetT BLigs32 40-762 oe! 
-= ; | . 
PRIMPTR ; | 
™ Of pe d § CALS #4, DBGSNCOPY_DESC : 
ee O2AF 4 BRW 78$ ; 7365 
08 AG F a13 42$ PUSHAB 8(LAST_OPERAND) : 7376 
DD ; | ; 
HL #164264 : | 
coczetas He PE URLIs PUSH HPA cua Bas) 
eats nee 02 ; 31 004 § 43$:  BRW : 7382 
01 02 Ab B1 00408 44$: cMPW 2(LAST_OPERAND), #1 ; 740 | 
FF32 if 8 d ‘ iste PATHDESC#2 ; 7415) 
ee a ‘nae} || 
4 AE 9F 00437 PUSHAB DUMMY ; | 
C AE 9F O0043A PUSHAB PRIMPTR : : 
C AE 9F 00430 PUSHAB KIND ; | 
08 Ag oF Prk PUSHAB Eg A 4 ee Hd FIND | 
ee ae 59 is OccA gibs> RO’ aes et] 
F 31 0044D 45$ BRW 0 3 | 
01 30 oer D1 00450 46$ CMPL KIND. #1 ; 7427 | 
Oe Ay bocee Oeee KIND, #5 > 7428) ; 
er 8 ed Panna eas | 
ft D4 0045C 478 CLRL = = (SP) ; 7437 | 
4 AE 9F 0045E PUSHAB DUMMY | 
C AE 9F 00461 PUSHAB PRIMPTR 
0 AE DD 00464 PUSHL PRIMPTR. py baie ; | ; 
somes a BIE det fy nem, img! | 
7E D4 thai 48$:  CLRL <-(SP) ; 7465 
56 DD 00473 PUSH LAST OPERAND ; | 
eee 6 +4 b0e 8 ates #3, APPEND_TO_PATHNAME 3 | : 
a | FE60 CD 9F re PUSHAS SAVED PATHBESC : re86 ; 
48 Ht BF Sees PUSHAB SUBSCR_DESC : 7466 | 
FF30 CD 9F 00487 PUSHAB PATHDESC | 
0000v CF Of FB 04 CALLS wee <a l e tatan 
3 07 9 BF $46 chs 7(PLIPTR), #6 7468 
0° $f rte) CMPB = @(PLIPTR), #16 ; 7469 
4 - 49D BNEQ 49 ; 
OH TEE aos, Flue tet ian! | 
FFSO eb oF aN: "  PUSHAB PATHDE SC i inca ; | } 
oeenenne xe 1c A pD 0489 pushe ie i > 7475 ‘ 
111 ; | 
10 02 = 61 Oc66 508: cay g{LAST_OPERAND) , #16 7499 
a : Eline {ito ‘nn| [i 
1 80 | 
00028982 8F DD 004C1 PUSHL #166322 : 
CALLS #3, LIBSSIGNAL : i 
paveasets 08 f3 OF tte 51$ PUSHAB 8 (LAST _OPERAND) : 7510 


| bse - -32 v4.0- 55 | 
vor-000” Ver$ep-1986 99:17:90  EDEaUG.SRCSDBGPARSER.OS3;1 89" (385 


), =(SP) ‘ 
eeaa if ™ 03 PB pepe Chee He  DBGSGET BLP ARGUMENTS 
3 06 ADA RovL RO, ARG LIST. ae 
00 GE D1 9040p MeL gARG LIST, ; 
14 O04E BGTR ay i socal 
01 00 BE Di OO4E CMPL - @ARG_LIST, ; 
2 O04E NEG 528 op) po 
7E 9A O04E9 MOVZBL (TOKEN), : 7529 
Be it GE: Re s8 i 1588 
; 
gO Bry ite Sieh ete an 3 
0000Vv i 34 03 FB re CALLS 4+¥ CREATE OPERATOR, TOKEN 3 
MOVL : 
52 ee 08 Pt oct ADDL AB, ARG.LIST, R2 : 7535, 
62 0D | 
ADDL3 #4, ARG_LIST, R3 | 
le se i nit fe Be 
000000006 00 3s Pe 00308 CALLS #3." DBGSEVAL LANG. OPERATOR / 
| 08 ar $F 33 548: PUSHAB 8(LAST_OPERAND) : 7546, 
D | 
| 00028838 er bd 00510 PUSHL #165944 | 
| 01 02 ”, 61 33 558: CHPU{LAST_OPERAND), #1 : 7563 
1 0059¢ BRW 64S 
FF32 oor. 3 808 F 56$: TSTB PATHDESC+2 ; 7571 
| 28 12 00533 BNEQ «58S Feil 
| 20. AE OF 005 PUSHAB DUMMY : | 
| 24 AE 9F 00538 PUSHAB DUMMY ; 
Canis | fe ae : 
08 Ab OF 00541 PUSHAB BLAST OPERAND) | 
| 000000006 00 05 FB ae CALLS #5. DBGSDEF_ SYR, pa 
OF : 
AE D1 0054 CMPL 6 OKIND. #1 
" 30 OF 8S bases Beat SPS : eR 
o 7 BE on, Be ee ra 
| OOAA if 0554 —Ssi—“‘itséiRW 67$ F senna! 
| 7E D4 9390 8$: CLRL TITY aia 
| 26 BO 00957 598: BUSHEL LAS 
| 0000v CF shed i FB se CALLS 13, APPEND. T0_PATHNAME ge 
| CLRQ. (SP) 
40 AE OOF PUSHAB KIND : 
| rege AB OF b08%% BUSHAB PATHDESC : 
TSYMBOL : | 
| 000000006 00 5, ‘ SrA CALLS #7, DBGSSTA,GETS 7613. 
| 05 fr BEQL 6 0$ 
BRW «1018 ; 
| 30 PRE BF BOSS 608:  PREHAB PATHSTRING : 7616 


——— 


oct 


FF30 
000000006 4 
30 
38 
000281F0 
0D 30 
38 
000282A8 
7E 08 
000289E2 
00000000G 00 
01 02 
FF32 
: 
4 
C 
C 
08 
000000006 99 
01 30 
05 30 
4 
zc 
00000000G 00 
FF30 
o000v CF 
0000v CF 
12 0 
0 
0002898A 
00000000G 00 


02 
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16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 256 I 
12-808=138e 95: 19; i DEBUG. SR RCIDBGPARSER.B3 31 . (33 
9F 005 PUSHAB THDESC : 
F 3 CALLS #2. DBGSNPATHDESC_TO_CS : 
D 9 CMPL D, a9 : 7617 
1 598 BNEQ : 
DD 0059 PUSHL PATHSTRING : 7619 
DD 005A PUSHL : 
bp A PUSHL #164336 : 
1 A BRB $ : 
D1 AA 618: CMPL KIND, #13 + 7621. 
¥ 5A BEQL $ : 
58 BRw $ : 
DD 38 62$:  PUSHL PATHSTRING > 7623) 
DD 00586 PUSHL @# : 
D 00588 PUSHL #164520 : 
1 O98 63$: RW 100$ + 7625 
A 005Ci 648:  MOVZBL 8 (LAST_OPERAND), -(SP) + 7640 
DD 005¢5 PUSHL #1 : 
DD O5¢7 PUSHL #166370 : 
FB O05CD 65$: CALLS #3, LIBSSIGNAL : | 
11 00504 BRB : 7556) 
B1 00506 66$: CMPW (LAST_OPERAND), #1 : 7658 
Ne 050A BNEQ : 
95 0050¢ TSTB = PATHDESC+2 : 7666 
12 0090 BNEQ  69$ : | 
9F 005E2 PUSHAB DUMMY : 7673) 
oF 0035 PUSHAB DUMMY : 
9F 005E8 PUSHAB PRIMPTR : | 
9F 005EB PUSHAB KIND : 
9F OOSEE PUSHAB BLAST OPERAND) : | 
FB OO5F1 CALLS DBGSDEF_SYM_F IND : | 
£9 005F8 BLBC +e ret : 
D1 005FB CMPL KIND, #1 : 7678 | 
13 O05FF BEQL © 678 : 
Di 00601 CMPL KIND, #5 : 7679 
12 00605 BNEQ 9$ : | 
D4 00607 67S: CLRL = = (SP) : 7688 
9F 00609 PUSHAB DUMMY : 
9F 0060C PUSHAB PRIMPTR ; 
DD 0060F PUSHL PRIMPTR : 
FB 0612 CALLS #4, DBGSNCOPY_DESC ; 
31 00619 68$:  BRW 128$ : 7681 | 
D4 0061C 98: CLRL = (SP) : 7697 | 
DD die O$:  PUSHL LAST_OPERAND : 
oF 06 PUSHAB PATHBESC : 
FB 624 CALLS #3, APPEND_TO_PATHNAME : 
31 00629 BRW 115 : 7698 
DD 0062C 71%:  PUSHL LAST 0 AND : 7707 
f 06 4 CALLS CONSTANT. TO_VALDESCR : 
31 006 BRW 116s : 
9 00636 72$:  BLBC  NUMERIC_PATHNAME, 73$ + 7724) 
F 06 A PUSHAB 8 (LAST_OPERAND) ; 7726. 
DD 00630 PUSHL #1 F 
DD 0063F PUSHL #166282 F | 
FB 00645 CALLS #3, LIBSSIGNAL : 
31 0064C 73$: BRW g4$ : 7738 
D4 O064F 748: CLRL = = (SP) > 7738 | 
DD 00651 PUSHL LAST _OPERAND ; 


V4.0-74 Page 257 
1egeect98e SBI9INE WAEGNE SANssER MEE, ag 
paerauee 


' | ; | 

Cc ; | 

FF30 9F 00658 CALLS, #8, APPEND 10_PATHNAME : 7739, 

68 B SHAB SAVED P THBEST 3 7740. 

teagan ae p oF PUSHL PTR ; 7739, 

7 BF 0066 PUSHAB suescr DESC ; | 

re30 CBOE 066 CALLS” #4. PATHNAME_T0_PRIMARY | 

4 FB 00669 VL RO, PRIMPTR + 7064 | 

oogov gt oh : 34 
” 9M 75$: CLRL =(SP) : 

& DD 00676 BUStL LAST OPERAND | 

FF30 cb oF ers CALLS” #3. APPEND_TO_PATHNAME ; 7762, 

CF EB opal PUSHL # ams | 

0000v 1 pd 00681 PUSHAB SAVED PATHDESC 2 7763 

oe U8 Ut hee PUSHL PL 37? | 

EOP boeas PUSHAB SUBSCR_DESC | 

FF30 cb fa 00856 Stic ae PATHOARE .TO_PRIRARY ores. 

0000v CF 95 MOVL RO 

we Rowe Bb 89606 ros: FUthL Prine | er 
0215 34 ooese 778: = CLRL «= SP) 

oS Bo Oftal | Bhsta CAT openan | 

FF30 DSF. OOEAS CALLS. #3, APPEND_ TO. PATHNAME : 7788. 

03 FB 006A7 SHAB SAVED PATHDESC : 7789 

oooov tf CD 9F OOGAC PUSHL’ PLIPTR a he 
3 PUSHAB SUBSCR ; 
9F 0068 C : 
FFs Cb OF 00eBS ry #0. PATSINAME _T0_PRIMARY ; 

04 FB 00689 MOVL RO. PRIMPTR ; 7790 
meee aS OF O06c9 78$:  PUSHAB 8(LAST_OPERAND) 

28 AED Oost CALLS #2, GET_BLISS_SUBSCRIPTS : 7064 
0000v CF Oe $f ogc 798: Bre GE 
ZE D4 O6CF BOS: CAL LAST OPERAND 

FF30 25 9F 00605 Peeae we APPEND _TO_PATHNAME : rane | 

63 FB 00607 PUSHAB SAVED PATHDESC > 7805 

ele oe PUSHA ; 7804 

Ae OF O0GE? PUSHAB SUBSCR_DESC | 

r#30 cb rb ates CALLS re, PATHNAME, TO_PRIMARY Pe 

0000v CF 6 6E MOVL R | 

= 5 26 Re bb Ost hie * Paine ' : oa 

ae Dé bors 82$: BUSH LAST gegen 

F380 tb OF pore CALLS. #3, APPEND. T0_PATHNAME : 78 ;| 

0000v CF Os CB Bre PUSHAB SAVED PATH THBESC : 28 4 

ae ee i PUSHAB SUBSCR DESC | 

0 Cb SF OOF ee THNAME _TO_PRIMARY | 

FF3O CD OF OO70E CALLS” GL PA t | 

0000v CF | 


K ee 
_DBGPARSER 16-Sep-1984 02:1 AX=11 Bliss-32 V4.0-74 Page 258 | 
‘VO6=008 14-Sep- 71382 96: 19: ¥ DEBUG.¢ tie Saceansen. ag 31 | . 33) 
7 5 717 MOVL PLIPTR ; 
6 07 N 1 OHA CmPS Bee TB TRI #6 ; 7825 
10 06 Ar of of 6 CHPB {PLIPTR), #16 + 7826 | 
014¢ 34 oF 6 BRW 12$ : | 
¢8 AE 9F 00729 838: PUSHAB * ; 7831. 
FF 30 cp 9F 0072¢ PUSHAB PATHDESC : 
000000006 00 2 FB 007 6 CALLS ey DBGSNPATHDESC_TO_CS : 
28 AE bp 07 PUSHL NAME + 7832) 
01g 1 0073A BRW 111$ : | 
E b4 07 D 84$:  CLRL =P) + 7908 
12 11 00736 BRB 898 : 
08 A6 9F 00741 85$:  PUSHAB 8(LAST_OPERAND) + 7917 
SA DD 00744 PUSHL 1 : 
0000v CF 02 FB 0746 CALLS #2, GET_RECORD_COMPONENT : 
11 11 00748 86$: BRB 90$ : 
01 DD 00740 87$:  PUSHL #1 + 7926 
é 11 0074F BRB 89S : 
02 DD 00751 88$ PUSHL #2 : 7935 
56 DD 00753 89$ PUSHL LAST_OPERAND : 
FF30 CD OF 0793 PUSHAB PATH : 
0000v CF 03 FB 00759 CALLS #3, APPEND_TO_PATHNAME 5 
F908 31 0075E 90$:  BRW 43° + 7064 
08 A6 9F 00761 91$:  PUSHAB 8(LAST_OPERAND) + 7947 
SA DD 00764 PUSHL R10 ; 
0000v CF 08 FB 00766 CALLS #2, GET_RECORD_COMPONENT : 
0148 31 00768 BRW 117$ + 7948 | 
01 DD 0076E 928 PUSHL #1 : 7958 
02 11 00770 BRB 94$ ; 
7E 04 00772 93$:  CLRL (SP) + 7968 
56 DD 00774 94$: | PUSHL LAST_OPERAND : 
FF30 CD 9F 00776 PUSHAB PATH : 
0000v CF 03 FB OO77A CALLS #3, APPEND_TO_PATHNAME ; 
009A 31 0077F BRW 107 + 7969 
08 Ab OF 00782 95$: | PUSHAB 8(LAST_OPERAND) : 7982 
SA DD 0078 PUSHL 1 F 
0000v CF 02 FB 00787 CALLS #2, GET_RECORD_COMPONENT : 
0130 3 O78¢ BRW 119$ : 7983 
Q1 DD 0078F 96$:  PUSHL @# : 7997 
6 DD 00791 PUSHL LAST_OPERAND ; 
FF30 cD 9F 00793 PUSHAB PATH : 
0000v CF 3 FB 00797 CALLS #3, APPEND TO_PATHNAME F 
FE60 gp OF 0796 PUSHAB SAVED_PATHDESC : 7998 
DD 007A PUSHL PL : 7999 
48 AE OF O7Ag PUSHAB SUBSCR_DESC : 7998 
FF30 CD 9F OO7A PUSHAB PAT ; 
0000v cf 4 FB O79 CALLS vy PATHNAME _TO_PRIMARY ; 
7 0 p O7AE MOVL RO. PLIPT ; 
06 07 A? 91 00781 CRPEFBLIBIRD 6 ; 8000 | 
09 if 0783 BNEQ F : 
10 06 Az? 91 0078 CHEB G(PLIPTR), #16 ; 8001 | 
0 é 7BB BNEQ 7$ ; 
008 78D BRU «1128 : | 
3 AE 9F 007CO 978 PUSHAB NAM : 8006 
FF cp 9F 007¢ PUSHAB PATHDESC ; 
000000006 00 2 FB 007C CALLS #2, DBGSNPATHDESC_TO_CS ; 


bio ER 


1 
18-56 -1984 02:10: AX-11 Bliss-32 V4.0-74 
1 ~300= 138% 95:19:43 DEBUG. SRC IDBGPARSER-B32; 1 
2¢ AE 0D 007C PUSHL NAM 
0096 Rt tf BRW 111 
0 pp 704 98$ PUSHL #1 
FDB6 31 007D6 BRW 59$ 
38 AF dD 0709 99$:  PUSHL PATHSTRING 
DD 0070¢ PUSHL 
000281F8 BF DD OO7DE PUSHL #164344 
000000006 00 ; FB OO7E4 100$: CALLS #3, LIBSSIGNAL 
DD OO7EB 101$:  PUSHL TOKEN 
38 «AE ODD O7ED PUSHL  TYPEID 
000000006 00 FB 7FO CALLS , DBGSEVAL_ADA_TICK 
24 «AE D0 Or 102$: MOVL RO, PRIMP 
18 «BC 1 DO 007FB MOVL #1, @RET_OPERAND_FLAG 
OA 11 OO7FF BRB 
08 A6 QF 00801 103$: PUSHAB 8(LAST_OPERAND) 
SA DD 00804 PUSHL 
0000v CF 02 FB 00806 CALLS a3 GET_RECORD_COMPONENT 
00BB 31 0080B 104$: BRW 122$ 
01 bp OBOE 105$:  PUSHL #1 
FEOB 31 0081 BRW 70$ 
5A DD 00813 106$: PUSHL R10 
0000v CF 91 FB 00815 CALLS #1, FIX_UP_PRIMARY 
7 11 OOBIA BRB 
40 AE 9F OOB1C 107$:  PUSHAB SUBSCR_DESC 
FF30 CD 9F OOBIF PUSHAB PATHDESC 
| 0000v CF 62 FB 00825 CALLS #2, SAVE_SUBSCRIPTS 
69 11 00828 BRB 113$ 
5A DD 0082A 108$:  PUSHL R10 
0000v CF 01 FB 0082C CALLS #1, FIX_UP_PRIMARY 
0088 31 00831 BRW 
FE60 cp 9F 00834 109$: PUSHAB SAVED_PATHDESC 
DD 00838 PUSHL 
48 AE OF OB3A PUSHAB SUBSCR_DESC 
FF30 CD 9F 0083D PUSHAB PATHDESC 
0000v CF 04 FB 00841 CALLS #4, PATHNAME_TO_PRIMARY 
57 50 DO 00846 MOVL RO R 
07 =A? 91 00849 CMPB © 7(PLIPTR), #6 
06 12 00840 BNEQ 1 
10 06 A? 91 OOB4F CMPB 6(PLIPTR), #16 
20 13 00853 BEQL ss 
3 AE 9F 00855 110$: PUSHAB 
FF30 «CD. «OOF 00858 PUSHAB PATHDESC 
000000006 00 02 FB 60 3 CALLS #2, DBGSNPATHDESC_TO_CS 
3¢ «AE ODD 086 PUSHL NAME 
01 OD 66 111$:  PUSHL 
00028CA0 BF ODD 08 PUSHL #167072 
000000006 00 3 FB 00 6 CALLS #3, LIBSSIGNAL 
4 AE 04 00875 1128: CLRL  PRIMPTR 
8 AE D4 0087 CLRL_ NUMERIC_PATHNAM 
| 0000 —s BF 00 6E a 00 2c 6 e MOVCS #0, (SPT, #0, #208, PATHDESC 
5B fF 3S CD 3 088 MOV PATHDESC+8, PATHVECTOR 
| 0270 «8 00 bE ss 00 ¢ OBBA mMOVCS #0, (SP), #0, #624, SUBSCR_DESC 
1 11 a893 113$: BRB 121$ 
A OD 95 1148: PUSHL R10 
| 0000v CF 1 FB 00897 CALLS . #1, FIX_UP_PRIMARY 


See Se Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Ge Ge Ge Se Ge Se Se Ge Se Ge Fe Fe Ge Ge Fe Se Be Se Fe Se Be Fe Se Se Fe Se Se Se Ge Ge Fe Fe Ge Be Se Fe Se Se Se Be Se 


; 
16- sep-1984 AX-11 Bliss-32 V4.0- 

erseert3Rs 9S: 19:4s = FANS Shissese VE.0-248 
9c BRB «1228 
$f 1158: PUSHAB SAVED, PATHDESC 
A PUSHL. PLIPTR 

AG PUSHAB SUBSCR_DESC 

PATHD 


taller 
v04-000 


28 11 
FE60 gp F 
D 
8 AE oF 
FF3 D OF 
0090v CF a 8 CALLS #4, PATHNAME_TO_PRIMARY 
4 AE 30 p BO 116$ HOVL RO. PRIMPTR 
A Of 00886 117$:  PUSHL R 
0000v CF 1 Fé 00888 1188: CALLS #1, GET_SUBSCRIPTS 
7 41 D BRB 121$ 
A 0D SOBBF 119%:  PUSHL R10 
0000v CF 1 re t! 120$: CALLS #1, GET_DEREFERENCE 
F7A0 3 6 12°8: RW 4$ 
16 BC 24 = OA 0 C9 12¢e: MOVL §PRIMPTR, @RET_TOKEN 
4 D08CE RET 
\ 


3; Routine Size: 2255 bytes, Routine Base: DBGSCODE 
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ROUTINE APPEND_TO_PATHNAME(PATHDESCR, TOKEN, COMPONENT_KIND): NOVALUE = 


FUNCTION 
This routine appends a pathname component to an ye tia Pathname 
Descriptor. It is called by the Primary Parser during the parsing of 
the pathname part of Primary Symbols (e.g., A\B\C) to build up the 
Pathname Descriptor which must eventually be passed to GETSYMBOL to 
get the symbol’s SYMID. 


INPUTS 
PATHDESCR = A pointer to a Pathname Descriptor to which a new pathname 
component should be appended. 


TOKEN = A pointer to the Lexical Token Entry for the identifier to 
be appended to the pathname descriptor. 


COMPONENT_KIND = This tells us what kind of pathname component we 

are dealing with. It can have one of the following values: 

NOT_REC_COMP (0) = An ordinary pathname component to be 
appended onto the end of the pathname, 
e.g., ‘A’ and ‘B' would be of this kind 
in the pathname “A\B.C' 

REC_COMP (1) - In the above example, ‘'C’’ comes in as 
a record component. It is appended to 
the pathname and the TOTCNT is incremented 
but not the PTHCNT field. 

COB_REC_COMP (2) = In COBOL, record components come in 
first, €-9.. of B of A’’, so we have 
to treat them differently when we are 
building the pathname. 


aw 
uN 


- 
uw 


| 


AOAC 


WN SO OONAYL SUN “QOOONOUEw 


ooOovovow C0009 NI NIN SIN SNA OOAAO 
S2SESLSSES PRs SORIA RON ODO I AP ON eo Oona 


OUTPUTS 
The identifier specified by TOKEN is added to the end of the Pathname 
Descriptor pointed to by PATHDESCR. 


WAPIPOPIPIPIPINININPININIPYNIPIPPYPINIPYPYPINPIPIPPIPPPINPIPUNIPIPY PNP 
a i kk a a dd ad ed ed 


SSSR eS SS SS SSSR eS eh Pee Sse Nine pe ee 


a eS Se a eee ae a ae ee ar er ee ee ar er er er er ee ee ee ae ee er ee ee er ee ee er er er er ee ee 
DOONAN E WP 0 OOO UE WN $9 ODNOAUE WN“ OOONOu 


0 00.00 09 0d 00 00 Cn 09 09 09 us <7 0D CD Cd OD CD Gd Od Od Cd Od Od 09 OD Od OD GD CD Cd OD CD OD OD OD CD Od Cd OD C9 Od Cd CD CD. CN CO OD CD CD CD CD CD CD CDCD CD 


0 0D GD 0d Gd 0D Od Gn CD OD CD G0 Od OD OD Gd Cd GD GD CD OD CD Cd GD OD GD Gd GD CD CD CD Od CD CD OD CD CD CD CD CD CD. CD CD CD. CD OD 


BEGIN 

3 P 

3 PATHDESCR: REF PTHSPATHNAME, ' Pointer to Pathname Descriptor 
«4 ; TOKEN: REF TOKENSENTRY; ! Pointer to Identifier Token Entry 
97 3 CAL 
98 3 PATHVECTOR: REF VECTORC,LONG); ! Pointer _to pathname vector in the 
199 3 ! PATHDESCR Pathname Descriptor 
200 30 
an 
$08 31 ! Make sure we have a valid Identifier Lexical Token Entry. Also make sure 
205 3] it will fit in the Pathname Descriptor. 
206 31 iF .TOKENCTOKENSW_CODE] NEQ TOKENSK_IDENTIFIER 
$8 i SIGNAL (DBG$_ILLPATHELEM, 1, TOKENCTOKENSB_LENGTH)); 
$19 31 If .PATHDESCRCPTHS$B_PATHCNT) GEQ DBG$K_MAX_PATHNAME 
211 31 THEN 
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SIGNAL (DBG$_PATHTOOLONG, 1, TOKENCTOKENSB_LENGTH)); 
PATHVECTOR = PATHDESCRCPTHSA_PATHVECTOR); 
Handle a non-COBOL record component. 
aire ee pane EQL REC_COMP 
BEGIN 


! Append the new pathname component to the Pathname Descriptor 
and then just return. 


PATHVECTORC .PATHDESCRCPTHSB_TOTCNT]] = TOKENCTOKENSB_LENGTH]; 
pore coner ream, tereng = ,PATHDESCRCPTHSB_TOTCNT] +71; 
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' Handle the case where we are adding a record component name in COBOL. 
Since these come in reverse order, previous ones must be pushed down. 


4 
i 
' 
IF .COMPONENT_KIND EQL COB_REC_COMP 
THEN 

BEGIN 

Check that we have not seen any pathname components yet. 

iF ;PATHDESCRLPTHSB_PATHCNT NEQ 0 

$DBG_ERROR( ‘"DBGPARSER\APPEND_TO_PATHNAME 10°); 


3 
3 
| } Push the previous components. 


DECR I FROM .PATHDESCRCPTH$B_TOTCNT] TO 1 DO 
PATHVECTORL.I1] = .PATHVECTORC.I-1); 


, Add the new component. 

PATHVECTORCLO] = TOKENCTOKENSB_LENGTH); 

Bump the count and we are done. 

Serene an POTENTS = ,PATHDESCRCPTHSB_TOTCNT] + 1; 
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Finally handle the ordinary pathname components. 
We want to insert the given component after previous pathname components 
but before any record Components we have already picked up. 
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!' We want to insert the name at the PATHCNT position. 
Push down lower names (record component names). 
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DECR I FROM PATHRESCACATUSD yorewrd TO .PATHDESCRCPTHSB_PATHCNTJ+1 DO 
PATHVECTORL.] PATHVECTOR 1]; 


Insert the given name, increment the counts, and return. 
PATHVECTORC. Aa 54 ih lal paren 2 = TOKENC TOKENS® L NGTH); 


PATHDESCREPTHSB_P NT] = TPATHDESCRCPTH$B_PATHCNT) # 1; 
paren oon PTHS$B_ TOTeNT = PATHDESCREPTHSB BTOTENT) + 1; 


»-PSECT DBGSPLIT,NOWRT, SHR, 


2 41 50 47 462 44 1F O310B P.AXL: .ASCII <31>\DBGPARSER\<92>\APPEND_TO_PATHNAME \ 
0 SF 4F 54 SF 44 GE O31EA 
30 31 20 0O31F8 -ASCII \ 10\ 
.PSECT DBGSCODE,NOWRT, SHR, 
007C 00000 APPEND_TO_PATHNAME : 
.@ORD Save Re. R3,R4,R5,R6 
56 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R6 
54 08 AC DO 00009 MOVL TOK He R4 
01 02 A& B1 0000D CMPW 32 (RG), #1 
0& 13 00011 BEQL ‘1 
08 Ad 9F 00013 PUSHAB 8(R4) 
01 DD 00016 PUSHL #1 
0002898A 8F DD 00018 PUSHL #166282 
66 03 FB OOO1E CALLS #3, LI 18$S1GNAL 
33 04 ac 00 90021 1$: MOVL PATHDESCR, R3 
3 01 Ad 91 00025 CMPB Ss«1(R3), 456 
OE Ff 00029 BLSSU 28 
08 A& 9F 00028 PUSHAB 8(R4) 
1 DD O00¢E PUSHL #1 
00028902 8F DD 00030 PUSHL #166354 
66 03 FB 00036 CALLS #3, LIBSSIGNAL 
52 08 A’ 9E 0059 2$: MOVAB 8 (R3), PATHVECTOR 
01 0C AC 01 0003p CMPL COMPONENT _ KIND, #1 
OA 12 0041 BNEQ $ 
50 63 9A 00043 MOVZBL (R3), RO 
6240 08 Ad H 0046 MOVAB. 8(R45, (PATHVECTOR)CRO) 
59 11 00048 BRB 10$ 
02 OC AC D1 00040 38: CMPL COMPONENT _ KIND, #2 
eC 12 00051 BNEG $ 
01 Ad 9 0043 TSTB —s-'1(R3) 
101 096 BEQL 4$ 
00000000' EF 9F 005 PUSHAB P.AXL 
1 0d 00 3E PUSHL #i 
00028362 DD 6 6 PUSHL #164706 
$6 FB 66 CALLS #3, LIBSSIGNAL 
0 : 9A 00069 4$: MoVZBL (R$), I 
0 06 0006C INCL] 
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ROUTINE CHECK_UPSCOPE(SYMID, TYPEID, PRIMPTR, DEPTH) = 


FUNCTION 
This routine is used to implement “incomplete data qualification” 
in senquage BASIC. For example, a user can abbreviate A::B::C with 
A::C. We are passed in a SYMID for the record component (''C'’ in 
A’ in the above 
example. This routine determines whether we can get to the record 
oing upscope from the component. If so, it returns TRUE and 


the above example), and a TYPEID for the record ( 


ORORORORORORORORS 
SSSLRALAVS 


In this case, the Primary is modified to include the intervening 
component selection. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
} The value FALSE is returned if the component is not a valid 
' 


b 
9 modi ties the Primary to include the intervening component 
91 98 selection. 
9 99 
G 400 INPUTS 
94 40 SYMID = SYMID for the record component. 
8295 46 TYPEID = TYPEID for the record. 
8296 40 PRIMPTR = Pointer to the Primary being constructed. 
8297 04 DEPTH = recursion depth 
8298 405 
4 SY OUTPUTS 
5 The value TRUE is returned if the component selection is valid. 
H 
HY component for this record. 
BEGIN 
MAP 
SYMID: REF RSTSENTRY, 
TYPEID: REF RSTSENTRY, 
PRIMPTR: REF DBGSPRIMARY; 
LOCAL 
COMPSYMID, 


NEW TYPEID 

NODEPTR: REF DBGS$PRIM_NODE, 
TYPCOMPLST: REF VECTORL,LONG), 
TYPREFTBL: REF VECTORL,LONG), 
U_SYMID: REF RSTSENTRY: 


DBGSGL_CURRENT_PRIMARY = .PRIMPTR; 

! Check that the RST goery upscope from the given 

' record component SYMID is a Type RST Entry. 

Then check whether it matches the given TYPEID for the record. 


U_SYMID = .SYMIDCRSTSL_UPSCOPEPTR); 
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IF, U-SYMID RSTSB_KIND] NEQ RSTSK_TYPE 
RETURN FALSE; 
; 44 IF .U_SYMID EQL .TYPEID 
$e re} BEGIN 
36 8 ! The TYPEID matches, so the record component SYMID is valid. 
8337 8444 ! In this case, we do want to perform the component selection. 
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3 3 rt } Modify the Primary to include the record component selection. 

3 0 109 NODEPTR = .PRIMPTRCDBGSL_PRIM_BLINK); 

3 1 re NODEPTRCDBGSV_PNODE EVALJ = TRUE; 

3 2g rts TYPCOMPLST = TYPEIDERST A_TYPCOMPLSTJ; 

3 8344 451 ! Determine the ‘component index'’. This ‘‘PNREC_INDEX’’ field gets 

3 : 45 ? § } used in determining the logical successor. 

3 § 454 INCR_ I FROM 0 TO .TYPEIDCRSTSL_TYPCOMPCNT] - 1 DO 
; ‘ 455 4 BEGIN 
: 834 4 $ 4 COMPSYMID = .TYPCOMPLSTLC.1); 
3; 8350 4 4 i 
3; 8351 458 4 
3 3 26 459 4 ! If this component is the one we seek, set its index into the Record 
3 S827 ret ¢ Sub-Node and leave the Loop. 
; S322 re 4 IF .SYMID EQL .COMPSYMID i 
; 8356 463 4 THEN 
3; 8357 464 BEGIN 

; 8358 8465 NODEPTRCDBG$W_PNREC_INDEX] = .1 + 1; 
3; 8359 8466 EXITLOOP; 
3; 8360 8467 4 : 
3; 8361 8468 END; i 
; ta) 469 

3; 836 ‘, 470 ! Check for FCODE of record - otherwise, it is not valid to skip 
3 ted eet) } this component. 
3; 8366 847 DBGSSTA_SYMTYPE(.SYMID, FCODE, NEW_TYPEID); i 
3 8367 8474 IF .FCOBE NEQ RST$K_TYPE_RECORD 
3; 8368 8475 THEN i 
3 ti 34 pee RETURN FALSE; i 
3; 8371 478 ! Finally append another Primary Descriptor Sub-Ncode for the selected | i 
5 Hi 444 record component. Then return. i 
3; 8374 8481 DBGSBUILD_PRIMARY_SUBNODE(.PRIMPTR, RSTSK_TYPCOMP, .SYMID, 
3; 8375 848 -FCODE, .NEW_TYPEID, 0); i 
3; 8376 848 RETURN TRUE; } 
3; 8377 8484 END; 
3; 8378 485 i 
3; 8379 48 ! The immediate upscope pointer did not match. In this case, go further i 
; 8380 48 ' upscope. We do this by getting the Type Reference table for this i 
3 Ht rt +3 ! ype ST entry. For each SYMID in the table, we recursively call 
3 356 rt} the CHECK_UPSCOPE routine. 
3 8384 rh} yy FIBL = .U_SYMIDCRSTSL_TYPREFTBL); 
3 = Q; 
3 $39 49 WHILE .TYPREFTBLC.1] NEQ 0 DO 
3; 838 494 BEGIN | 
; 8388 495 U_SYMID = .TYPREFTBLC.1); 
: 8389 496 IF CHECK_UPSCOPE(.U_SYMIO, .TYPEID, .PRIMPTR, .DEPTH+1) 
3 soy q THEN 

3; 8391 98 4 BEGIN 

; 839 499 4 j 

3; 839 500 4 ' If we are at the top level of recursion, then do not modify 

3; 8394 501 4 i the Primary here. This is because it will get done in 
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5 ' GET_RECORD_COMPONENT. 
IF DEPTH EQL 0 
RETURN TRUE; 


4 

401 ! The TYPEID matches, so the record conpenent SYMID is valid. 
8§ ! In rhis case, we do want to perform the component selection. 
0 ! Modify the Primary to include the record component selection. 


' 

' 

4 

' 

NODEPTR = .PRIMPTRCDBGSL_PRIM BLINK); 
NODEPTRCDBGSV_PNODE EVALI = TRUE; 
TYPCOMPLST = TYPEIDCRSTSA_TYPCOMPLSTI; 
1 


YP 
! Determine the ‘‘component index'’. This ‘PNREC_INDEX'’ field gets 
tu 


SRLIESF 


4 
rh sed in determining the logical successor. 
tig INCR 1 FROM 0 TO .TYPEIDCRSTSL_TYPCOMPCNT] = 1 DO 
13 COMPSYMID = .TYPCOMPLSTC.1]; 
1 
3 ! If this component is the one we seek, set its index into the Record 
\8 Sub-Node and leave the loop. 
0 IF .SYMID EQL .COMPSYMID 
1 THEN 
¢ BEGIN 
NODEPTRCDBG$W_PNREC_INDEX] = .1 + 1; 
4 EXITLOOP; 
5 END; 
$ END; 
8 ! Check for FCODE of record - otherwise, it is not valid to skip 
$3 } this component. 
DBGSSTA_SYMTYPE(.SYMID, FCODE, NEW_TYPEID); 
IF .FCOBE NEQ RST$K_TYPE_RECORD 


N 
RETURN FALSE; 
! Finally append another Primary Descriptor Sub-Node for the selected 
record component. Then return. 


DBGSBUILD_PRIMARY_SUBNODE(.PRIMPTR, RSTSK_TYPCOMP, .SYMID, 
-FCODE, .NEW_TYPEID, 0); 

RETURN TRUE; 

END; 


fs .§ @ ts 
END 


: We failed to find a path to the desired TYPEID. Return FALSE. 
RETURN FALSE; 
END; 
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OFFC 00000 CHECK_UPSCOPE: 
. WORD 


Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 8388 
5E 08 C3 0002 SUBL2 #8, SP ; | 
oc aC OD 990 MOVL §PRIMPTR, R6 + 8429. 
000000096 56 D0 00009 MOVL  R6, DBGS$GL_CURRENT_PRIMARY : | 
04 AC 00 00010 MOVL SyAID + 8435) 
10 A p O14 MOVL G(RB} U_SYMI : | 
07 14 A? 9 18 CMPB =. 20(U_SYMIB), # + 8436 
03 13 9oi¢ BEQL 1 : 
00A6 31 OOO1E BRW 12$ : 
55 08 ac DO 00027 1$ MOVL ‘TYPEID, RS + 8439 
55 D1 00025 CMPL -U_SYMID, RS : | 
1 if 028 BNEG 46 4S ; 
53 18 A6 p 002A MOVL  24(R6), NODEPTR + 8447 | 
OA A’ 01 88 000 E BISB2 #1, 10(NODEPTR) > 8448 | 
52 2c «6AS) «(9E 000 MOVAB 44(R5), TYPCOMPLST + 8449. 
2 et a a toy: 
59 6240 DO 00038 2$ MOVL §_ (TYPCOMPLST)C1], COMPSYMID ; | 
59 58 01 0003F CMPL RB, COMPSYMID + 8462 
48 13 0042 BEQL «6s 7$ ; 
F2 50 28 AS F2 00044 3$ AOBLSS 40(R5), I, 2$ 3 8454) 
4D 11 00049 BRB 9$ 3 8473) 
SA 1¢ 6A? ~DO 00048 4$ MOVL  28(U_SYMID), TYPREFTBL > 8491. 
54 04 0004F CLRL I 3 8492) 
58 10 Ac 01 C1 00051 ADDL3 #1, DEPTH, R11 + 8496 | 
Gadd D3 0056 5$: Ist (TYPREFTBL)CIJ : 8493) 
57 6A44 DO 00058 MOVL § (TYPREFTBL)CIJ, U_SYMID + 8495 | 
38 bp 005 PUSHL 1 + 8496 | 
7E 3 D 00061 MOVO. RS, =(SP) : 
7 DD 00064 PUSHL U_SYMID : 
96 AF 04 FB 0066 CALLS &&, CHE CK_UPSCOPE ; 
56 0 €9 0006A BLBC =—.-s«aRO. ‘11 ; | 
10 AC D3 906 TSTL DEPTH + 8504 | 
40 13 00070 BEQL 10$ ; | 
53 18 Ab 4 Oote MOVL 24(R6), NODEPTR 3 8318 | 
OA A’ 01 0076 BISB2 #1, 10(NODEPTR) : 8513. 
22 2c (AS OE OO7A MOVAB 44(R5), TYPCOMPLST : Bo14 | 
01 ce 7E MNEGL #1, I : 8521. 
10 11 00081 BRB 8 ; 
59 6240 00 99 : 6$ MOVL § (TYPCOMPLST)C1J, COMPSYMID : | 
9 5 D4 0 z cMPL RB. COMPSYMID > 8527. 
18 «AB 50 0 Aj £ 7$ ADDUS a. 1, 24(NODEPTR) ; 8530 | 
EB 50 28 R F2 93 8s AOBLSS 40(RS). I, 6$ > 8519 
5E pd 98 9$ PUSHL SP : 8538 
08 AE OF O9A PUSHAB FCODE ; 
000000006 00 83 PB Boose CAC’S #8, DBGSSTA, SYMTYPE 
89 04 AE bf OA6 CMPL —sdRCODE, . > 8539 


tid ER 


3 Routine Size: 


202 bytes, 
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Routine Base: DBGSCODE + 


HEoseoctgee Oe10:15  yayett gligs=52 4 0-742 


ie AA BNEQ 
Dd AC CLRL 
DD A PUSHL 
DD B PUSHL 
DD B4 PUSHL 
DOD B PUSHL 
DD B PUSHL 
fe BA CALLS 
B BF 10$: MOVL 
4 C RET 
06 C5 118 INCL 
1 C BRB 
D4 C7? 128 CLRL 
04 00009 RET 


12$ 

-(SP) 

NEW_TYPEID 

FCOBE 

R 

Ro 

#6, DBGSBUILD_PRIMARY_SUBNODE 


5s 
RO 


roe 8 


547 
548 


: 8547 
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DBGPARSER 18-56 -1984 02:10: AX-11 Bliss-32 V4.0-74 Page 270) 
ni 1a-Sep- 7 05:19:33 DEBUG. SRCIOBGPANSER 04551 . 35) 
3 rs ; 569 ! ROUTINE CONSTANT_TO_VALDESCR(TOKEN) = 

> 8455 ey 1! FUNCTION 

3; 84 $ 206 1! This routine converts a Constant Lexical Token Entry into the corre- 

; 2 4 65 1! sponding Value Descriptor. for string and character constants, this 

; 8458 28 1! results in an ordinary Value Descriptor, but for numeric constants 

3; 8459 65 1! it results in an “unconverted” Value Descriptor, i.e., a descriptor 

; 8460 208 1! in which the numeric constant is represented as the original input 
; 8461 ek character ethan The actual conversion +H a numeric constant to its 
3; 846 S208 1! binary representation is thus delayed until the appropriate precision 

3 ret 28 : of the binary representation can be determined from context. 

> 8465 Bsr 1 ' INPUTS 

; rg 276 1! TOKEN = A pointer to a Constant Lexical Token Entry. This entry 

5 ae 8575 1! represents a numeric, string, or character constant of 

$ re sete : } some sort. 

: 5090 8376 1 ' OUTPUTS | 
3; 8471 8577 1! A Value Descriptor is constructed for the constant and a pointer to 
3; 847 8578 1! that descriptor is returned as the routine value. 

3; 847 8579 1! 

3 8474 8580 1 

3; 8475 8581 BEGIN 

: Bere 3388 map 

: 8478 s2ee TOKEN: REF TOKENSENTRY; ! Pointer to Lexical Token Entry 

 Bee0 Ha LOCAL 

: 8481 8587 VALPTR: REF DBGSVALDESC; ! Pointer to Value Descriptor we build 

ee OBB 

: 8485 8591 ! Build a skeleton Value Descriptor for the constant and copy the constant 

3 gene B26 character representation into that descriptor. 

: 8488 8594 VALPTR = GSMAKE _SKELETON_DESC(DBGS$K_VALUE_DESC, .TOKENCTOKENSB_LENGTH)); 

3; 8489 8595 VALPTRCDBG$B_DHDR_LANG] = .DBG$GB_LANGUAGE; 

3 8490 8596 VALPTRCDBG$B_DHDR-KINDJ_= RSTSK_ DATA; 

3 8491 859 VALPTR DBG$B-DHDRF CODE} = RST$R_TYPE_ATOMIC; 

3 4 $298 VALPTRLDBG$V_DHDR_UNCVT)_= TRUE; 

3 849 599 VALPTREDBG$B_VALUE_CLASS] = DSC$K CLASS S; 

3 8494 8600 VALPTRCDBG$W_ VALUELENGTH] = . TOKEN TOKENSB_LENGTH): 

3 8495 8601 VALPTRCDBG$L_VALUE_POINTER] = VALPTRCDBGSA_QALUE_ ADDRESS); 

3 36 606 VALPTRLDBG$W" VALUE TOKENCODE) = . TOKENLCTOKENSW CODE); 

3: 849 60 CHSMOVE (. TOKENCTOKENSB_LENGTHJ, TOKENCTOKENSA_RAME 

3 8498 604 VALPTRLOBGSA_VALUE_ADDRESS)); 

3 r+ oR? 

: 501 60 : Determine what kind of constant this is and set the data type and the 

3 208 ts ' “unconverted” bit accordingly. 

; 208 tt CASE... TOKENCTOKENSW_CODE) FROM TOKENSK_MIN_OPERAND TO TOKENSK_MAX_OPERAND OF 

Be BK 

; 8508 614 ' Handle character string constants. Mark the data as type T. 

3; 8509 8615 ! 


K 2 
vOs-000" VerSep-198e 18:19:50 — EDeeuG.SmcSoeoPansén.oss;1 = 72838) 


! Handle floating-point constants with E exponents. Mark the data 
type as F. 


CTOKENSK_EXP_E_FLOAT): 
VALPTRLDBGSB_VALUE_DTYPE) = DSC$K_DTYPE_F; 


SSSSSe 
QOUMMIMNIUIUIUIUIU 
SCOWOONOUS WN — 


661 

rt 

664 ! Handle floating-point constants with D exponents. Mark the data 
665 type as D. 

66 CTOKENSK_EXP OAT): 


Wy 
Aaa 
— 


D_FL 
LF; 00GSGB_MOD_PTRCMODE_G_FLOATS) 


vw 
o 
w 


H 10 616 CTOKENSK_STRING): 

; 12 ei VALPTRCDBGS$B_ VALUE _DTYPE) = DSCSK_DTYPE_T; 

; 851 61 

: 13 ? Y Handle bit string constants. Mark the data as type TF. 

: 316 é CTOKENSK gi STRING): 

; 217 6 ; VALPTRCDBG$B_VALUE_DTYPE] = DSCSK_DTYPE_V; 

: 8519 625 

: 2 Y 4 8 Handle decimal integer constants. Mark the data as type L. 
; 2 : 626 CTOKENSK_INTEGER): 

: 2 Z r 3 VALPTRCDBG$B_VALUE_DTYPE) = OSCSK_DTYPE_L; 

: 8525 be 1 

: 2 : ¢ Handle hexadecimal integer constants. Mark the data as type L. 
5 8528 Be 4 CTOKENSK HEX INTEGER): 

: 2 9 se ? VALPTR DBG$B_VALUE_DTYPE) = DSCSK_DTYPE_L; 

: 8531 Be? 

; 32 § Ht } Handle octal integer constants. Mark the data as type L. 
: 85 8640 CTOKENSK_OCT_INTEGER): 

; 8535 8641 VALPTRCDBG$B_VALUE_DTYPE] = DSC$K_DTYPE_L; 

iB ise 

3 32 Sete Handle binary integer constants. Mark the data as type L. 
: 85 8646 CTOKENSK_BIN_INTEGER): 

3 85 8647 VALPTRLDBG$B_VALUE_DTYPE] = DSC$K_DTYPE_L; 

i Be Beco 

: 85 8650 ! Handle floating-point constants without exponents. Mark the data 
3; 85 86 ! type as F. 

3; 85 86 ! 

H Be 86 CTOKENSK_FLOATING): 

: 2 86 VALPTR DBG$B_VALUE_DTYPE] = DSCSK_DTYPE_F; 

: 85 

3; 85 

; 85 

3; 85 

3; 85 

3; 85 

3; 85 

3; 85 

; 85 


BEGIN 
VALPTRCDBG$B_VALUE_DTYPE) = gscse DTYPE_G; 


VALPTREDBG$W-VALUE~TOKENCODE) = TOKENSK~EXP_G_FLOAT; 


ts ER 


04 


7h 


7 
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; 8567 END 
is LSE 
; ? VALPTRCDBG$B_VALUE_DTYPE] = DSC$K_DTYPE_D; 
: 857 
3 i | ty A eyeeting perme constants with G exponents. Mark the data 
’ ype 
; 8575 
; 857 ETOKENSK EXP_G FLOAT]: 
; HH VALPTRCDBGSB_ VALUE -DTYPE] = DSCSK_DTYPE_G; 
: 857 
; 8580 ! Handle floating-point constants with Q@ exponents. Mark the data 
: 8382 | type as H. 
: 858 iTOKENSK EXP_Q FLOAT): 
: s2ge VALPTRCDBG$SB_VALUE_DTYPE] = DSC$K_DTYPE_H 
> 8586 
; 6367 ; Handle pack decimal constants. Mark the data type as P. 
; 8289 CTOKENSK_PACK_DECIMAL): 
: Bey $ VALPTRCDBGSB_ VALUE_DTYPE] = DSCSK_DTYPE_P; 
: 859 
: 8598 4 Any other case is an internal error. 
> 8595 8701 CINRANGE, OUTRANGE): 
: S208 144 $DBG_ ERROR ( "DBGPARSER\CONSTANT_TO_VALDESC'); 
; £28 870 
3; 8598 8704 TES; 
Bye 
; prait 1444 : The Value Descriptor is constructed. Return its address to the caller. 
; 08 8709 $ RETURN .VALPTR; 
3; 8604 8710 2 
3 5 8711 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
53 4 4F 43 5C 52 45 53 52 41 50 47 42 44 1D pairs P.AXM: .ASCII <29>\DBGPARSER\<92>\CONSTANT_TO_VALDES\ 
53 45 44 4C 41 56 SF 4F 54 SF 54 4E 41 54 20A 
43 03218 ASCII \C\ 
ePSECT DBGSCODE,NOWRT, SHR, PIC,0 


O1FC 00000 CONSTANT_TO_VALDESCR: 


“W Save R2,R3,R4,R5,R6,R7,R8 
As MOVL ae 

MOVZBL 8(R8). -(SP) 
8F SO0R MOVZBL #122, =(SP) 
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50 000000006 
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; reds Brig ! ROUTINE CONVERT_TO_INTEGER (VALPTR) = 

; 8609 B14 i FUNCTION 

; 8610 19 3 ¢ This routine converts a value descriptor to an integer value 
: ap gris ! and returns the integer value. 

; bets 718 i INPUTS 

: sole 14 : VALPTR = A pointer to a value descriptor 

: 8616 875), 1 | ouTPuTS 

; Bets ef ¢ ! An integer value is returned. 

: 8619 724 BEGIN 

1 a a ee 

; i +f ; NEW_VALPTR: REF DBGSVALDESC; ! New value descriptor 

: 8624 8729 

: Bese B70 : } Build a new value descriptor of type longword integer. 

: 8627 873 NEW. VALPTR = DOSSAAKE ~$ket TON Data -VALUE_DESC, 4); 

; 8628 87 “ § NEW_ VALPTRCDBG$B = pur matt 

; 8629 8734 NEW” VALPTR[EDBGS$B_DHD RF CODED. = AStaR ove ATOMIC; 

3; 8650 8735 NEW_VALPTRLDBGS$B_VALU ttt = DSCSK_CLASS_S; 

; 8631 8736 NEW-VALPTR DBGSB-VALUE DI = DSCaK~ “DTYPE“L; 

é ti] 8737 NEW_VALPTRLDBGS$W_VALUE_L 6TH) = 4; 

; tt, 1h § NEW_VALPTRCDBGS$L_ VALUE ~pOINTER] = NEW_VALPTRCDBGS$A_VALUE_ADDRESS); 
: 8635 8740 2 

: rts] tbe 2 } Call the routine which does type conversion. 

: 8638 Hoe: : NEW_VALPTR = DBGSEVAL_LANG_OPERATOR ( : 
: ¥te4 ores § DBGSGL_CONVERT_TOKEN, .VALPTR, .NEW_VALPTR); 

; Bees toe § Return the value in the new value descriptor. 

: 864 8748 2 RETURN .NEW_VALPTR CDBG$L_VALUE_VALUEO); 

3 8644 8749 1 END; 


0000 00000 CONVERT_TO CNteGeR: 


ve nothing : 8712 
04 DD 00002 BUSH L : 8732. 
7E 7A BF 9A 00004 MOVZBL #122, -(SP) : 
000000006 00 2 FB 00008 CALL We GacsmaKe ~SKELE TON, DESC ; | 
06 AO 0602 8F B0 OO0F MOVW #1338, 8 W7VALPTR) + 8734 
14 Ad 01080004 F pO 00015 MOVL a} Ht He “aOUNEM VALPTR) : 8737 
18 =A0 20 AO 9E 00010 MOVAB 32(R 0) A (NEW_V CPTR) : 8738 
50 DD 00022 PUSHL NEW > 8744 
04 AC DD 00024 PUSHL aad : 
00000000' ai 9F 00027 PUSHAB DaCKGL CONVERT TOKEN > 8743 
000000006 90 3 FB 002D CALLS L_LANG OPERATOR : 
0 20 AO 0034 MOVL Sinbee va eTRD. RO : 8748 
4 00038 ET > 8749 


ag ER | Re as op ieee 
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; Routine Size: 57 bytes, Routine Base: DBGSCODE + 2490 


Sith ieee Stans. Seabed Siriaas a Se = er 


d 3 
GPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 P 77 { 
VOL 14-Sep-19 4 95:19:38 DEBUG. SRC ]DBGPARSER.B3 31 age $5) 


; ong q 9 } ROUTINE CREATE_OPERAND_TOKEN(TOKEN_CODE, TOKENBUFFER) = 
H oh 7 ; 1 ! FUNCTION i 
; 864 7 1! This routine creates a Lexical Token Entry for an operand and returns i 
3 0 73564 (1 a@ pointer to the created Token enter The Token Entry is created in i 
; 8651 755 1! temporary wits When returned, the Lexical Token Entry will have i 
; 66 § 7 $ 1! the TOKENSB_KIND field set to TOKENSK_OPERAND and the TOKENSW_CODE i 
; gee 7 1} field set the specified operand token code. The token name or charac- { 
3 8555 f 8 : } For, feprevences ten will also be filled into the Token Entry in Counted i 
; 865 760 13 
3 6557 761 1 ! INPUTS 
; 8658 166 1} TOKEN_CODE = This is the code value which indicates which kind of i 
; 8659 765 1! operand this is. (TOKENSK_IDENTIFIER or hy po STRING i 
; 8660 8764 1! would be valid examples.) “This value is filled into the i 
3 9 £9? ! TOKENSW_CODE field. i 
3; 866 re 1 ! TOKENBUFFER = A pointer to a buffer which contains the Counted ASCII i 
3; 8664 768 1! representation of the operand for which a Token Entry is to i 
; 8665 8769 1! be created. This buffer will thus contain an identifier i 
|; 8666 8770 1! name, the character representation of a numeric constant, i 
; 8667 8771 1! or the contents of a character string constant, depending i 
3 seen ore : on the kind of operand involved. i 
; 8670 8774 1 ! OUTPUTS i 
3; 8671 8775 1! A pointer to a Lexical Token Entry for the specified operand is i 
3; 867 8776 1! returned as the routine value. i 
3; 867 8777 1! i 
3; 8674 8778 1 i 
3; 8675 8779 2 BEGIN i 
: Ber? B78) 5 MAP | 
3; 8678 1404 2 TOKENBUFFER: REF VECTORC,BYTEJ; ! Pointer to token Counted ASCII string ; 
Bebo Hae LOCAL 
3; 8681 8785 2 TOKEN: REF TOKENSENTRY; ! Pointer to new Token Entry created i 
; 868 8786 i 
: BeBe 3788 ! 
3; 8685 8789 ' Get a temporary memory block for the Operand Lexical Token Entry. 
3 sone 1h Fill in the fields of the Token Entry and return its address. i 
; 8688 B73 TOKEN = DBGSGET_TEMPMEM(TOKENSK_ENTSIZE + .TOKENBUFFERCOJ/ZUPVAL + 1); 
; 8689 ar TOKENCTOKENSB_KIND] = TOKENSK_OPERAND; 
; 8690 794 TOKENCTOKENSW- CODE] = .TOKEN_CODE; 
; 8691 8795 SMOVE(. TOKENBUFFERCO) + 1, TOKENBUFFERCO), TOKENCTOKENSB_LENGTH)) ; 
3; 869 8796 RETURN . TOKEN; 
3; 869 8797 
3; 8694 8798 1 END; 
007C 00000 CREATE_OPERAND_TOKEN: 
.WOR Save R2,R3,R4,R5,R6 ; 8750 
50 08 BC 9A 00002 MOVZBL @TOKENBUFFER, RO : 8792 


| 


3 
GPARSER 16-5 -1984 02:10: AX-11 Bliss-32 V4.0-74 P 78 
POeL000 yeaeeaT3Re 95:19:43 | YOMENE Shigsese NeeO-2es age gi 
50 04 (6 DIVL2 #4, RO : 
03 Ad gf 03 PUSHAB 3(RO) : 
000000006 99 F ‘ CALLS #1, DBGSGET_TEMPMEM : 
4 9 p 1 MOVL RO, TOKEN : 
bs, 16 MOVE sol, (TOKEN) + 8793 
02 Ab 04 AC : 1 MOVW TOKEN CODE 2 (TOKEN) > 8794 
5 8 A 1 MOVZBL aTOKERS NBuUF FER, + 8795 
08 Ab 08 BC 28 4 MOVC3 RO, eQTOKENOUFFER, 8 (TOKEN) : 
0 f BO 90 A MOVL TOKE + 8796 


; Routine Size: 46 bytes, Routine Base: DBGSCODE + 2406 


ee ] 


, F 
16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 279 
13=808-1 382 95:19:48 DEBUG. SRCIDBGPANSER. 03951 ’ (31) 
198 1 ROUTINE CREATE OPERATOR _TOKEN(TOKEN_CODE, TOKENBUFFER, KIND) = 
SO i ' FUNCTION 
£06 1! This routine creates a Token Entry for an operator and returns a 
03 1! pointer to the created Token Entry. The Token entry is created in 
ape 1! yenporery memory. When returned, i Token Entry will have the 
. ae TOKENSB_KIND field set to the specified kind and the TOKENSW_CODE 
8 i field set the specified operator token sores The token name or 
807 1! character representation will also be filled into the Token Entry 
spe : } in Counted ASCII. 
319 1 ! INPUTS 
1 1! TOKEN_CODE = This is the code value which indicates which trpS of 
Hh) |} operator this is. (TOKENSK_DOT, TOKENSK_ADD, TOKENSK_BIF_OP 
815 1! would be valid examples.) This value is tilled into the 
Bale ! } TOKENSW_CODE field. 
o218 1! TOKENBUFFER = A pointer to a buffer which contains the Counted ASCII 
8817 1! representation of the operator for which a Token Entry is to 
8818 1! be created. This buffer will thus contain an identifier 
8819 1! name, or the contents of a character string constant, 
rt Y ' depending on the kind of operator involved. 
88 § 1! KIND = This is the code value which indicates which kind of operator 
88 1! this is. (e.g. TOKENSK_PREFIX_OP) This value is filled 
3 : , } into the TOKENSB_KIND field. 
8826 1 ! OUTPUTS 
8827 1! A pointer to a Token Entry for the specified operand is returned as 
8828 1! the routine value. 
8829 1! 
8830 1 
8831 BEGIN 
Ht 
883 MAP 
te TOKENBUFFER: REF VECTORC,BYTE]; ! Pointer to token Counted ASCII string 
BB3é LOCAL 
+444 TOKEN: REF TOKENSENTRY; ! Pointer to new Token Entry created 
88%9 
8840 
8841 ! Get a temporary memory block for the Operator Token Entry. 
pets H Fill in the fields of the Token Entry and return its address. 
8844 TOKEN = DBGSGET_TEMPMEM(TOKENSK_ENTSIZE_OPERATOR + .TOKENBUFFERCOJ/2ZUPVAL + 1); 
8845 TOKENE TOKENSS KIND = ,KIND; 
84 TOKENLTOKENSW CODE) = .TOKEN_CODE; 
84 CHSMOVE (. TOKERBUFFERCO) + 1, TOKENBUFFERCO), TOKENCTOKENSB_OPLEN)); 
848 RETURN . TOKEN; 
8849 
8850 END; 
' 
l 


3 
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s-32 V4.0-74 Page 280 
Sbaaeansén $9; 1 ge ¢90 
007C 00000 CREATE_OPERATOR_TOKEN: 
50 08 Bt 9A 0 movZeL aTOKENBUFFER, RO + 8844 
04 AO OF 0 SHAB 4(RO) : 
000000006 90 gi F ¢ CALLS #1, DBGSGET_TEMPMEM : 
* 0 p 1 MOVL ' N ; 
&6 o¢ AC 16 MOVE KIND, (TOKEN) + 8845 
02 Ag 4 AC BO OOO1A MOVW TOKEN_CODE, 2( TOKEN) > 8846. 
5 08 A OF MOVZBL @TOKENBUFFER, RO ; 8847. 
OC Ab 08 BC 28 0098 mMovC3 RO, @TOKENBUFFER, 12( TOKEN) : 
6 DO 00028 MOVL TOKEN, R + 8848 | 
04 0002E : 8850. 


; Routine Size: 47 bytes, Routine Base: DBGSCODE + 2504 


H 3 

GPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 v4. 
it 19-88-1382 05:19:33 DEBUG. SRC IDBGPARSE 
3 188 ! ROUTINE CREATE_PRID_CONSTANT(PRID) = 
> 8751 1 | FUNCTION 
3; 87 § 4 1! This routine creates a value descriptor for the predefined identifier 
3 4 ? 5 ! constant and returns the pointer to the value descriptor. 
: 8755 3 1 | INPUTS 
3; 87 § 8 1! PRID - Pointer to a Predefined Identifier Constant entry in 
5 r 23 : } Predefined Identifier Table for the given language. 
: 87 § 61 1: ouTPUTs 
; 8760 o¢ 1! A pointer to the value descriptor of Predefined Identifier Constant 
; 8761 65 1! is returned. 
: Bre es o1 
; 8764 66 BEGIN 
: Bree $ MAP 
; te ses PRID: REF PRIDSENTRY; ! Pointer to Predefined Identifier 
: 769 8871 LOCAL 
3 B78 1h VALPTR: REF DBGSVALDESC; ! Pointer to Value Descriptor 
; 8778 He 
3; 877 184 VALPTR = DBGSMAKE ~Sxet TON DESC (DBGSK_VALUE_DESC, 4); 
3; 8774 a VALPTRCDBG$B_DHDR_LANG + DBG$GB_LANGUAGE ; 
3 8775 87 VALPTREDBG$B_DHDR-KIND] = RSTSK aTas 
: 8776 878 VALPTRLDBG$B_DHDR-FCODE) = .PRIOCPRIOSB_FCODE); 
; 8777 87 VALPTREDBG$B_VALUE_DTYPE) = .PRIDCPRIDSG_DTYPE); 
3; 8778 880 VALPTRLDBG$B_VALUE_CLASS) = DBGSMAP Pree cLASst 
3; 8779 te RID$SB_DTYPE), FAL a tte 
3; 8780 th) VALPTRCDBGS$W_ VALUE =p EneTi = DBGSNUM BYTES. AR TBCPRIDSa Hy PE)); 
3; 8781 888 VALPTR DBGSL- VAL UEP: INTER] = VALPTROEDBGSA VALU ADDRESS r 
; a7e¢ 8884 VALPTRCDBGSL~ VALUE ~VALUEO) = ,PRIDCPRIDSL VALUE J; 
5 4 tH A an -VALPTR; 


000C 00000 CREATE “ae are 


wO ave R2,R3 
4 pp 02 PUSHL 
7 7A MOV ZBL -(SP) 
000000006 Q ; F 008 CALLS * BaGShaKe _SKELETON_DESC 
03 A2 000000006 00 8 12 MOVB bi * LANGUAGE. 3(VALPTR) 
” $ 4 Re . i HOVE 
06 ag oe hs 8 ; MOVB Hi S<VALPIR) 
16 A AS 9 MOVB 2(VALPTR) 
7 ps C CLRL lisp ) 
7 01 AS 9A MOVZ2BL 1(R3) 
000000006 op 9 FB CALLS +e DgcahAP or DTYPE_CLASS 
7E 01 A Bh D MOVZBL 1(R3), -(SP) 


3 
ogeranae RENE GE BRU MRRALET, dB 


000000006 0 Qi FB 044 CALLS DBGSNUM BY BYTES 
18 A 20 x 8 bee MOVAB oe 24 VALPTR) ags | 
20 A ey: 06 05 MOVL 4(R if | 
5 5 p 0056 MOVL - VALPTR 885 
4 0005 RET | 


; Routine Size: 90 bytes, Routine Base: DBGSCODE + 2533 
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NEHSpcHORE QBH9SNS PRGULLALISSSEENEARTE,, MH 


ROUTINE DUMP _OPERATOR(OPERATOR, PRIMARY_FLAG): NOVALUE = 
i FUNCTION 
‘ This routine dumps out an Operator Lexical Token ary in a readable 
feramet when that operator is about to be evaluated. t prints one 
Line of output of approximately this format: 
primary operator ‘'\'' evaluated (infix) 


This routine is used only for internal DEBUG debugging purposes. Its 
output is not seen by normal DEBUG users. It is only called when 


: Developer Switch 3 is set to trace operator evaluations as they occur. 
9 INPUTS 

9 OPERATOR = A pointer to the Lexical Token Entry for the operator 

: to be dumped. 


PRIMARY_FLAG - A flag whose value is TRUE if this operator is 
evaluated as part of a Primary Symbol. Its value is 
FALSE if it is an ordinary expression operator. 
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OUTPUTS 
NONE 


BEGIN 


MAP 
OPERATOR: REF TOKENSENTRY; ! Pointer to operator's token entry 


: Print the main text of the message including the operator name string. 


DBGSPRINT(UPLIT BYTE(ZASCIC ° *). 0); 

IF .PRIMARY_FLAG THEN DBGSPRINT(UPLIT BYTE(ZASCIC ‘primary '), 0); 

DBGSPRINT(UPLIT BYTE(ZASCIC ‘operator ‘!AC'’ evaluated ('), 
OPERATORCTOKENSB_OPLEN)); 
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Then print what kind of operator this is. 
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358 IF .OPERATORCTOKENSB_KIND] EQL TOKENSK_PREFIX_OP 

5850 DBGSPRINT(UPLIT BYTE(ZASCIC prefix"), 0) 

8832 ELSE IF .OPERATORCTOKENSB_KIND] EQL TOKENSK_INFIX_OP 
Hen THEN BGSPRINT(UPLIT BYTECEASCIC ‘infix'), 0) 

8834 5 ELSE IF .OPERATORCTOKENSB_KIND] EQL TOKENSK_POSTFIX_OP 
538 33 THEN BGSPRINT(UPLIT BYTE(ZASCIC ‘postfix'), 0) 

Bei 7 LSE GSPRINTCUPLIT BYTE(KASCIC "invalid kind’), 0); 
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DBGSPRINT (PLT BYTECZASCIC *)'), 0); 
ghd ae WLINE(); 
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} Close out the message, flush the buffer, and return. 


DBGSPLIT,NOWRT, SHR, 


<4>\ 
<8>\ viene 


6> rhomras Be "tAC’’ evaluated (\ 


SB erat izn 
>VNinfix\ 
<7>\postfix\ 

<12> invalid kind\ 
<1>V\DN 


DBGSCODE,NOWRT, SHR, 


Save R2,R3 
ree as R3 


=(SP) 
ae, tg tye 
RIMARY_ LAG, 1$ 
“(sp 
AXO 
3 DBGSP 


RINT 
ie. pOPERATOR, -(SP) 


Wee NDGSPRINT 
BOPERATOR, #2 


=(SP) 
P.AXQ 


generar, #3 


~(SP) 
P.AXR 


5$ 
@OPERATOR, #4 
4% 


=(SP) 
P.AXS 


AX-11 Bliss-32 V4,0-74 
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3; Routine Size: 


109 bytes, 


63 


$3 
000000006 00 


Routine Base: 


* 9h 
“8h 


DBGSCODE + 2580 


be 


1986 93:19:55 


AX-11 Bliss-32 V4.0- “B35. 
DEBUG. SRC JDBGPARSER.B 


PUSHAB P.AXT 
#3 DBGSPRINT 
5 (SP) 


PLA 
CALLS Ws. *DBGSPR INT 
DBGSNEWL INE 


"3 
voe-000"" 18-Sep-1966 18:17:50 EDEBUG. SRCSDBGPARSER. 636; rase Sts 


CASE... TOKENLTOKENSB_KIND] FROM TOKENSK_OPERAND TO TOKENSK_POSTFIX_OP OF 


CTOKENSK OPERAND: 


KIND = UPLIT BYTEC(RZASCIC ‘operand'); 
eo = TOKENCTO 


KENSB_LENGTH); 


CTOKENSK_PREF 1X_OP): 
GIR 


KIND = UPLIT BYTE(ZASCIC ‘prefix operator’); 
then = TOKENCTOKENSB_OPLEN); 


CTOKENSK_ INF IX_OP): 
KIND = UPLIT BYTE(ZASCIC ‘infix operator’); 


; 88 § 338 ! ROUTINE DUMP_TOKEN(TOKEN): NOVALUE = 

3 : 954 1 ! FUNCTION 

3 5 955 1! This routine dumps out a specified Lexical Token Entry in a readable 

3 te] 83 $ ! } format. It prints one Line of output of approximately this format: 

3 6558 ; 8 } token found: infix operator, code = 8, string = ‘'s*"’ 

; 8860 960 1! This routine is used only for internal DEBUG debugging purposes. 

; 8861 961 1! Its output is not seen by normal DEBUG users. The routine is only 

3 94. 306 ! called by DBGSPRIMARY_PARSER if Developer Switch 2 is set. 

; BBs 596% 1 ! INPUTS 

3; 8865 8965 1! TOKEN = The address of the Lexical Token Entry to dump. 

3; 8866 5908 1! 

3; 8867 8967 1 ! OUTPUTS 

3; 8868 8968 1! NONE 

; 8869 8969 1! 

3; 8870 saty 1 

3; 8871 971 BEGIN 

3 +14 897 

3; 887 897 Pp 

3; 8874 8974 TOKEN: REF TOKENSENTRY; ! Address of Lexical Token Entry to dump 
3; 8875 8975 

; 8876 8976 LOCAL 

3; 8877 8977 KIND, ! Pointer to text saying what kind of 
: 8878 8978 : lexical token this is | 

; 8879 8979 NAMEPTR, ! Pointer to the ASCIC name string for 
3; 8880 8980 ' the lexical token 

; 8881 8981 PRIMARY; ! Pointer to string soy ing whether this 
3 rtd 4 ! is a Primary Symbol operator 

3; 8884 8984 

3; 8885 8985 ? 

3; 8886 8986 Determine what kind of Lexical Token Entry this is. 


oct 


; 8909 

: 8910 

3 4p 

8 B38 

3 8914 

3; 8915 

; zi8 

3; 891 

; 8918 

3; 8919 

3 34 0 

3 44 1 

3; 89 § 

3 8924 

3; 8925 

3; 8926 

3; 8927 

3; 8928 

; ah54 

3; 8930 

3; 8931 

3; 8932 

3; 8933 

3 8934 

3; 8935 

3; 8936 

3; 8937 

3; 8938 

6F 74 61 72 

72 6F 74 61 

74 61 72 65 
64 6€ 

21 20 3A 64 

21 20 3d 20 
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DEBUG. SRCJDBG 


on 


— = TOKENCTOKENSB_OPLEN); 


CTOKENSK_ POSTFIX_OP): 


KIND = UPLIT BYTE(ZASCIC ' 1 Hig operator’); 
— = = TOKENCTOKENSB_OPLEN]; 


comet? OUTRANGE): 


KIND = UPLIT a 


nvalid kind’); 
oo = UPLIT BYTE(% salt 


IC ‘i 
ASCIC 
TES; 


Print the Line describing the Lexical Token Entry. 
PRIMARY = UPLIT BYTE(ZASCIC ''); 


IF .TOKENCTOKENSV_PRIMARY) THEN PRIMARY = UPLIT BYTE(ZASCIC ° (primary)'); 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘token found: !AC!AC, code = !SL, string = "!AC'), 
-KIND, «PRIMARY, .TOKENCTOKENSW_CODE1, .NAMEPTR) ; 
DBGSNEWLINE(); 
RETURN; 
END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
64 6€ 61 72 65 70 6F O7 03266 P.AXV: .ASCII <7>\operand\ 
20 78 69 66 65 72 70 OF 83596 P.AXW: .ASCII <15>\prefix operator\ 
6F 20 78 69 66 6E 69 OE Bs5e6 P.AXX: .ASCII <14>\infix operator\ 
78 69 66 74 73 6F 4 uy 83 ep P.AXY: .ASCII <16>\postfix operator\ 
64 69 6C 61 76 6E 69 OC O329E P.AXZ: .ASCII <12>\invalid kind\ 
00 O32AB P.AYA: .ASCII <0O> 
00 AC P.AYB: .ASCII <Q> 
61 6D 69 72 70 28 90 OA AD P.AYC: .ASCII <10>\ (primary)\ 
66 20 6E€ 65 6B 6F 4 2F B&8 P.AYD: .ASCII \/token found: !AC!AC, code = !SL, string\ 
63 20 $f $3 41 21 43 41 Basc7 
69 ¢ 4 7 $8 © 4 $3 ¢@ 506 
22 45 41 21 2 20 30 20 032E0 eASCI] \ = “THAC’N 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
001C 00000 DUMP_TOKEN: 
oW Save R2,R3,R4 
54 00000000" EF 9€ 00002 MOVAB P.AXZ, R4 
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; 8940 9039 1 ROUTINE DUMP_PRIMARY(PRIMPTR): NOVALUE = 

; 8941 9040 1! 

; 894 ope 1 ! FUNCTION 

; 894 9 tg 1! This routine dumps out a Primary Descriptor or a Value Descriptor 

3; 8944 9045 1! in hexadecimal on the terminal. for a Primary Descriptor, it dumps 

; 8945 ohee 1} out not only the Root Node but also all Sub-Nodes. This routine is 

5 nee 9045 1! used only for internal DEBUG debugging purposes. Its output is not 

3; 894 494 a geen by normal DEBUG users. It is only called if Developer Switch 

; 8948 9047 1! is set. 

; 8949 9048 1! 

; 8950 9049 1 ! INPUTS 

; 8951 9050 1! PRIMPTR = A pointer to the Primary Descriptor or the Value Descriptor 
3 926 9051 1! to be dumped out. 

; 895 ene6 i 
3 B3e¢ 9055 1 ! OUTPUTS 

; 8955 9054 1! NONE 
; 8956 9055 1! 

; 8957 3028 1 

; 8958 905 BEGIN 

; 8959 9058 

; 8960 9059 P 

; 8961 9060 PRIMPTR: REF DBGSPRIMARY; ! Pointer to Primary Descriptor 

; soot 9061 

; 896 906 CAL 

; 8964 906 LENGTH ! Byte length of Primary Descr Sub-Node 
3; 8965 9064 NODEPTR: REF DBGS$PRIM_NODE; ! Pointer to Primary Descr Sub-Node 

; 8966 9065 

3; 8967 9066 

3; 8968 9067 : 

3 8969 9068 : If this is a Primary Descriptor, dump out the Root Node and then loop to 
3 441 44 } dump out all the individual Sub-Nodes. 

; 897 9071 IF .PRIMPTRCDBG$B_DHDR_TYPE] EQL DBG$K_PRIMARY_DESC 

; 897 907 THEN 

3; 8974 907 BEGIN 
3; 8975 9074 

; 8976 9075 

3 +444 44h } Dump out the Primary Descriptor Root Node. 

; 8979 9078 DBGSDUMP_HEX(.PRIMPTR, DBGSK_PRIMARY_SIZE*XZUPVAL, .PRIMPTR, 

; 8980 9079 UPLIT BYTE (ZASCIC ° Primary Descriptor:')); 

; 8981 9080 
; 898 9081 

3; 898 908 ! Dump out each of the Primary Descriptor Sub-Nodes. Note that the 

3; 8984 908 ! Length of the Sub-Node in bytes depends on the FCODE stored in the 

3 bed oon Sub=-Node. 

3; 8987 908 NODEPTR = .PRIMPTRCDBG$L_PRIM_FLINK]; 

7 89 908 WHILE .NGDEPTR NEQ PRIMPTRLDBGSA_PRIM_FLINK] DO 

3; 8989 9088 4 BEGIN 

: 9089 4 IF .NODEPTRCDBGS$B_PNODE_FCODE) EQL RSTSK_TYPE_ARRAY 

3; 8991 9090 4 N 

; 3454 9091 LENGTH = ZUPVAL*(DBG$K_PRIM_SIZE_ARRAY + 

3 H$ 443 DBGSK_PRIM_SIZE_SUBS* .NODEPTRCDBG$B_PNARR_DIMCNT)) 

3; 8995 9094 4 ELSE IF .NODEPTRCDBG$B_PNODE _FCODE) EQL RSTSK_TYPE_RECORD 

; 8996 9095 4 THEN 
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-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


; pad 38 ¢ LENGTH = DBGSK_PRIM_SIZE_RECORD*%UPVAL : 
; 395 a8 2 tt IF .NODEPTRCDBG$B_PNODE_FCODE] EQL RSTSK_TYPE_VARIANT : 
3; 9001 444 4 LENGTH = DBGSK_PRIM_SIZE_VARIANT*ZUPVAL 3 
; 900 9101 4 3 
; 900 2186 4 ELSE 3 
: 9004 9103 4 LENGTH = DBGSK_PRIM_SIZE_NORMAL*%UPVAL; ; 
; 9005 9104 4 3 
; 90 9105 4 DBGSDUMP_HEX( .NODEPTR htt -NODEPTR 3 
> 900 91 6 4 UPLIT byte (ZASCIC’® Primary Sub-Node:')); : 
; 9008 9107 4 NODEPTR = .NODEPTRLDBGSL_PNODE_FLINKJ; ; 
; 900 9106 END; 3 
; 9010 9109 3 
3; 9011 9110 END 3 
3 si} 9111 F 
; 901 aii6 3 
3 Baie ABE If this is a Value Descriptor, dump it as such. 3 
3 3015 a2 ; rise IF .PRIMPTRCDBG$B_DHDR_TYPE] EQL DBGSK_VALUE_DESC 3 
3; 9018 9117 DBGSDUMP_HEX(.PRIMPTR, .PRIMPTRCDBG$W_DHDR_LENGTH], .PRIMPTR : 
3 9019 9118 é UPLIT BYTE (ZASCIC ' Value Descriptor:')) ; 
3 aney 9119 : 
3; 9021 9120 3 
3 4534 318) If this is a Volatile Value Descriptor, dump it as such. ; 
; 9004 3138 ELSE IF .PRIMPTRCDBG$B_DHDR_TYPE] EQL DBG$K_V_VALUE_DESC ; 
3 3056 315¢ DBGSDUMP_HEX(.PRIMPTR, .PRIMPTRCODBG$W_DHDR LENGTH]. .PRIMPTR, : : 
; 9027 3158 UPLIT BYTE (ZASCIC ' Volatile Value Descriptor:')) : 
3; 9028 9127 3 
3 sik 9 9128 3 
; 9030 at 44 ! If it is none of the above, something is wrong but we try to dump the 3 
; 9031 9130 § ! descriptor anyway. 3 
3 tT} 9131 ! 3 
3; 903 3136 § ELSE 3 
3 9034 913 DBGSDUMP_HEX(.PRIMPTR, .PRIMPTRCDBG$W_DHDR_LENGTH], .PRIMPTR, 2 
; 9035 9134 UPLIT BYTE (ZASCIC ' Invalid Descriptor Type:')); : 
3; 9036 9135 3 
3; 9037 9136 3 
3; 9038 9137 ' We are all done--now return. 3 
3; 9039 9138 ' 3 
3; 9040 9139 RETURN; i 
3: 9041 9140 1 END; j 
2 20 19 E8 P.AYE: .ASCII <25>\ Primary Descriptor:\ : : 

3 a3 98 BS de O8sF? ; 

¢ 3 £ $9 Y 0¢ P.AYF: .ASCII <23>\ Primary Sub-Node:\ 3 5 

§ 3 § 20 3 1A P.AYG: .ASCII <23>\ Value Descriptor: \ 3 ; 

6 § 73 ¢3 : ; ; j 

20 20 2 0 20 2 P.AYH: ASCII \ Volatile Value Descriptor:\ : ; 
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1 
1 
4) 
} : P.AYI: .ASCII <30>\ Invalid Descriptor Type:\ 
3A 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
007C 00000 arta shana) 


WOR Save R2,R3,R4,R5,R6 3; 9039 
§ 900000006 00 9€ 9002 MOVAB DBGSDUMP_HEX, R6 : 
0000000' EF 3 000 MOVAB P.AYE, RS : 
4 04 AC 00 00010 MOVL  PRIMPTR, R4 + 9071 
79 «BF 2 as 91 00014 CMPB sso (4), 121 : 
31 12 00019 BNEQ 6$ : 
0 BB 00018 PUSHR #*M<R4,R5> : 9078 
4 0D 90010 PUSHL #36 : 
4 DD O001F PUSHL R& : 
66 04 FB 00 1 CALLS #4, DBGSDUMP_HEX : 
52 14 A& DO 00024 MOVL O(R4), NODEPTR + 9086 
50 146 A 9 00 8 1$ MOVAB 20(R4). RO + 9087 
50 32 D1 0002C CMPL NODEPTR, RO : 
60 13 000¢F BEQL Ss : 
01 09 A2 91 00031 CMPB 9(NODEPTR), #1 + 9089 
0D 12 00035 BNEQ : 
50 18 A2 9A 90037 MOVZBL 27(NODEPTR), RO + 9092 
30 14 C4 00038 MULL2 #20 RO F 
5 28 AO 9E 9003¢ MOVAB 40(RO), LENGTH + 9091 
19 11 0004 BRB 5$ ; 
07 09 Ae 91 00044 2$ CMPB «=: S(NODEPTR), #7 + 9094 
05 12 00048 BNEQ 3$ ; 
53 1€ D0 O004A MOVL #28, LENGTH > 90% 
OE 11 0004D BRB 5$ ; 
13 09 =A 1 OO4F 3$: CMPB © S(NODEPTR), #19 : 9098 
0 ; 0053 BNEQ 4$ ; 
53 38 DO 00055 MOVL #40, LENGTH + 9100. 
11 00058 BRB 5$ ; | 
53 1 0 005A 4$ MOVL #24, LENGTH > 9103, 
1A AS) «(OF 00050 5$ PUSHAB P.AYF : 9106. 
32 DD 00060 PUSHL NODEPTR : 9105. 
06 FB 00064 CALS #4r DOGSDUMP_HEX - 
$8 62 BB Soe? MOVL (NODEPTR), NODEPTR + 9107 
BC 11 O006A BRB 1$ : 9087. 
7A so 02 ad 91°00 6¢ 6$ CMPB (RA), #122 > 9115. 
03 12 00071 BNEQ $ ; 
32. AS OF 00073 PUSHAB P.AYG > 9118 
OF 11 6 16 BRB : 9117. 
83 «BF 02 Ad 91 00078 78 CMPB (R4), #131 : 9123 | 
05 12 0007D BNEQ F 
4A A> OF or PUSHAB P.AYH > 9126 | 
03 11 Be BRB > 9125 
68 A5 9F 000 8s PUSHAB  P.AYI > 9134 
54 po 0087 $ PUSHL R > 9133 
7E 64 3C 00089 MOVZWL (R4), =(SP) : 


F 4 
vor-000 1-88-1982 93:19:38 Eoeuc. Ske Sbabakseno39; 1 poe SIs 
66 ran O08 CALLS #4, DBGSDUMP_HEX ee 
04 00091 10$: RET . z 9140 
; Routine Size: 146 bytes, Routine Base: DBGSCODE + 2662 
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voe eagep- 1986 13:17:80 EotauG. SRcSoBerARSER. O95; 1 9 $3 
ROUTINE FIX_UP_PRIMARY(PRIMPTR): NOVALUE = ) 


' FUNCTION 

This routine is needed to handle a special case that may arise 
in conjunction with the gray slice feature: If X is a a - 
dimens x10, and the user spe {ties xC5), 
then we want to xC53C1:1 
However, we do not know at the time we gre picking yp the ‘'S*’ 
subscript whether he is going to say XC5J or XC5JL6J, for example. 


se2eses 


WN —OOONO UE“ OVOOVNOuns 


onal err ey say 1 i 
reat this as if he had said x5 Je 


So we cannot fix up the quer tvere: bounds properly until after 
all the subscripts have been picked up. This is the routine 
that gets called after all the subscripts have been picked 


up, to fix up these bounds. 


INPUTS 
PRIMPTR = A pointer to the Primary Descriptor being constructed. 


OUTPUTS 
The Primary Descriptor pointed to by PRIMPTR may be modified. 


BEGIN 


$328338338 


tots 


MEAN SO OBNO NEW 8 ODNOAVNE WIN $0 ODNA UE WN OO OD NOU EW 0 OO VOUS wh 


SUBVECTORC.1 pBGSL PNSUB LBOUND) = 
; SuBVECTOR .1, OBG$L_PNSUB SVALUE); 
SUBVECTORE. 1 aos. PNSUB UBOUND) = 
SUBVECTORE.1, BBGSL_PNSUB_SVALUE); 


DODODODOWDO OOO OOOO VDOOVOO DOO OOOO ODODOOODODOODODODODOODODODOOODOOODODOOOVOOONOWOODO 


bt + AAD Ot tee tg te tet RR PIN BP ON BS Oe A Re Ny tee ee eS 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
9064 1 
9065 1 PRIMPTR: REF DBGSPRIMARY; 
49 ¢ 1 
906 1 OCAL 
9068 1 NODEPTR: REF DBGSPRIM_NODE, 
9069 1 SUBVECTOR: REF DBGSPRIM_NODE_SUBS; 
9071 
4 1 ! Obtain a pointers to the Primary Descriptor Subnode and the 
907 1 ! subscript vector within that subnode. Do nothing if the 
oore ; } subnode is not for an array. 
9076 1 NODEPTR = .PRIMPTRCDBGSL_PRIM Bc INK); 
9077 1 IF .NODEPTRCDBG$B_PNODE_FCODES NEQ RSTSK_TYPE_ARRAY 
9078 1 THEN 
9079 1 RETURN; 
4444 : SUBVECTOR = NODEPTRCDBGSA_PNARR_SVECTOR); 
908 1 
908 1 ! Check for the subscript count being less than the dimension count, 
1 ' but the renge bit not being set. The point here is that we want 
5 1 : to reat this case as if itr tly ere a range (e.g., treat 
1 ' xC1) as being the same as X(1)(1: y. Note that this same code 
908 : appears in GET_SUBSCRIPTS when we discover that we do have a range. 
9089 1 If .NODEPTRCDBG$B_PNARR_SUBCNT) LSS .NODEPTRCDBG$B_PNARR_DIMCNT) 
9090 1 AND NOT .NODEPTRCDBG$V_PRARR_RANGE 
9091 1 THEN 
909 1 BEGIN 
909 1 99 i oo ee pence) = TRUE; 
: INCR I FROM O°TO .NODEPTRCDBG$B_PNARR_SUBCNT] - 1 DO 
1 
1 
1 
1 


res 
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PRIMARY 
WORD 
MOVL 
MOVL 
CMPB 
BNEQ 
MOVAB 
CMPB 
BGEQU 


000C 00000 FIX_uUP_ 
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DBGSCODE + 26F4 


Routine Base: 


74 bytes, 


2 
: 


4 
GPARSER rbese -1984 210: AX-11 Bliss-32 V4.0-74 Page 295 
vb 12-88-1382 95:19:48 DEBUG. SRC IDBGPARSER.B3 31 . Aya 
; § ROUTINE GET_BLISS_SUBSCRIPTS(PRIMPTR, NAME): NOVALUE = 
4 i FUNCTION 
5 ‘ This rout ing picks up subscript values in a BLISS structure 
reference ( 


.@. any BLISS gr mary of the form X(...J]). 
It calls DBGSEXPRESSION_PARSER to pick up each subscript. 


The kinds of BLISS structures we accept are: 


x i} bitvector 
XLi vector 
Xin,p.s,e] bloc 
x(m,n,p,$,eJ blockvector 


This routine assumes that the opening subscript bracket has 
already been found and that the parse pointer points to the start 
of the first subscript expression. When this routine returns, 
the parse pointer is left point tng at the first character after 
the closing subscript bracket. 


INPUTS 
PRIMPTR = A pointer to the Primary Descriptor for a structure about 
to be susecr ieted, 
NAME - The name of the object being subscripted (for error 
message purposes) 


WANA ORO PonoRononony 2 2 2 


seaiina pnarerd Sr caary Doone rates ™ changed to include the subscript 
° presented as follows: 
XCi] bitvector - i is stored in a Primary Descriptor Array 
XCi] vector - ie cteled in a Primary Descriptor Array 
XCn,p.s.e] block = a te stored in a Primary Descriptor Array 


sub-node. p, $s, and e are stored in the het 

my nery Descriptor Root node, in the 

prim_offset, prim_length, and sgnext fields. 
xCm.n.p.s,e) blockvector= m and n are stored in a Pr 

Array sub-node. p, s, and e are stored in the 

orinary Descriptor Root node, in th 


imary Descriptor 


NOUS WN OOO NOUS WN $9 OONO UE W 0 OONOU SW 0O0O 


MOPMONIPOPPoPofononopfnoronys 
FUFUSUSISUSISIS ES BS ES EE BE EE EAI IAI IIAP NPN NPININID 2 OO OO OS 


Be Se Se Se Se Se Se Se Se Se Be Se Ge Se Se Ss Ge Se Ge Be Ge Ge Fe Ge Fe Ge SF Se Ge FH Se Se Se Se Se Fe Se Se Ss Se Se Se SF Se Se Se Se Se Ge Se Ge Se Se SE Se eee 
GLLLLLL L000 L000 LLL LL LL LLL LLL LOLOL L0 LLL LLL 000020000 2LLS 
WDODODODODOOODO ODO OOOO OOOO DOODOOODOODOOOOOODODOOVDOODODOODODODOODOODOODOOOOOOOO 


Romonononononononononononony 2 


4 
4 
4 
4 
4 
4 e 
? prim_offset, prim_length, and sgnext fields. 
4 BEGIN 
$ p 
5 8 PRIMPTR: REF DBGSPRIMARY; ' Pointer to BLISS structure Primary 
3 4 ! Descriptor. 
5 1 LOCAL 
5 § - ' Count of field values 
5 DECLTYPE: REF DBGSVALDESC, ' Pointer to value descriptor for the 
5 4 ! subscript value. 
5 5 DSTPTR: REF DSTSRECORD, ' Pointer to BLISS structure DST entry 
5 § ' Data type FCODE for current symbol 
LA_PTR: REF VECTORC,BYTE), i Lookahead pointer into input 
58 LOO_RANGE_VAL, ! The Lower value of a subscript range 


a a a a ee 


4 
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vitae 13-88-1382 95:19:45 DEBUG. SRCJDBGPARS O85 1 . (37 
NODEPTR: REF DBGSPRIM_NODE ' Pointer to Prim Desc Array sub-node | 
NODESUBPTR: REF DBG PRIM_NODE_SuBS, ! Pointer to subscript blockvector 


n Prim Desc Array sub-node 
PTR: REF VECTORC,LONGI, Temporary pointer to field name values 
REF PLAS 
RSTPTR: REF RSTSENTRY, 


True for REF objects 

Pointer fe BLIS structure RST entry 
SAVED_RADIX, ° 
STRIDE, 


ly saved expression radix 
STRU 
SUBSCR_CO 


Stride for blocks and blockvectors 
COUNT 
SUBVECTOR: VECTORES), 
TOKEN 


POAAAOM 
MEW O” 


Code for kind of BLISS structure 
Count of the number of subscripts 
Vector of subscripts 

Pointer to a Lexical Token 

Pointer to a type 

Pointer to subscript Value Descriptor 
Subscript value 


ODOODOOOOOOOOOOVNO 


OO a a ss “ss a a os as ts ts a 


TYPEI6, 
VALPTR: REF DBGSVALDESC, 
VALUE; 

DBGSGL_CURRENT_PRIMARY = .PRIMPTR; 


! Check that the Primary Descriptor has the correct Kind and FCODE. 
! If so, obtain a pointer to the DST record for this BLISS structure. 


' 
RSTPTR = .PRIMPTR CDBGSL_DHDR_SYMIDO); 
Lf RSTPTR EOL 0 

SIGNAL (DBGS NOTASTRUCT 1,_.NAME); 
DSTPTR = .RSTPTR CRSTSL_DSTPTRI: 
If .PRIMPTR CDBGS$B_DHDR-KIND] NEQ RSTSK_DATA 

SIGNAL (DBGS_NOTASTRUCT, 1, DSTPTRCDSTSB_NAME]); 


DBGSSTA_SYMTYPE (.RSTPTR, FCODE, TYPEID); 
IF .FCODE NEQ RSTSK_TYPE.BLIDATA 


THEN 
SIGNAL (DBGS$_NOTASTRUCT, 1, DSTPTRCDSTSB_NAME 1); 


as se ss ot ss 
BVLSSSLEREAN LE SELES ALATELS SSNS APIS Do wan howe 


pt De AAD 8 het try tet eet PR PRN RP ON Ne 


OOONOUS WN — DONE MEU HOO OUR UNIO Dee ue 


WDODODODOODODOOODOVOODODODOODOOODODODOOVDOVO 


' Check for no field structure in the RST - this arises when the 

1 ' user defines his own BLISS structure, instead of using one of 

2 ' the builtins BITVECTOR, VECTOR, BLOCK, or BLOCKVECTOR. We do 
} not handle this case. 
0 STRUC = .DSTPTR COSTSV_BLI_STRUCI; 

oe 01 dF go raut EQL DSTSK_BLT_NOSTRUC 

] 08 SIGNAL (DBGS_NOTASTRUCT, 1, DSTPTRCDSTS$B_NAME)); 

08 05 

09 the REF bit is set, then there is a sub-node for the dereferencing. 


. If 
' Call DBGSBUILD_PRIMARY_SUBNODE to build a new subnode for the array 
information. Light the EVAL bit in the dereference subnode. 


306 ! 
‘ 
' 
{4 if .DSTPTR COST$V_BLI_REF) 
1 THEN 
18 
14 
15 


BEGIN 
DBGSBUILD_PRIMARY, SUBNODE (.P 


, RSTSK_DATA, RSTSK_TYPE BLIDATA, 
NODEPTR = .PRIMPTR CDBGS$L_PRI 


IMPTR z 0 
IMPTR (BGS. -DHDR_ TYPE DJ, TOSTPTR); 
_FLINK); 


WDODODODO WOOO OOOO OVO OOO OO DOOD OOOO DODOODOOODODODODOOOODOODODODOOOODOOOOOOOOO 


DOOODODODOOVVOSO 


PoMofonononononofofefory 


et ae a et a a es 
ONAUS wo 


K 4 
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voee 14-Sep-1984 93319:49 DEBUG. SRCIDBGPARSER.039; 1 : 9 99 
NODEPTR CDBGS$V_PNODE_EVAL] = TRUE; 
REF_FLAG = TRUE; 


ELSE 
REF _FLAG = FALSE; 


E 


— 
Wwn—Oo 


! Obtain pointers to the Primary Descriptor Sub-Node and the subscript 
blockvector within that node. Light the eval bit in the subnode. 


NODEPTR = .PRIMPTR COBGSL_PRIM BLINK); 
NODESUBPTR = NODEPTR (DBG A.PNARR. SVECTORI; 
NODEPTR CDBGSV_PNODE_EVAL] = TRUE? 


Loop p— the List of subscripts. Pick up each actual subscript and 
add it to the subscript vector. When we get to the closing subscript 
parenthesis, we check all the subscript values for validity and complete 
the Primary Descriptor Sub-Node accordingly. 


! 

: 

: 

; 

i 
SUBSCR_COUNT = 0; 

T CODE = TOKENSK_TERM_ COMMA; 

W INATOR_CODE NEG TOKENSK_TERM_CLOSE DO 


SH EAA ANI ANIPPPONPOPONINPNINYDN 2 2 


SOWDWNA WE WN 9 ODNAUE WN 0 DOONAN (OO ENAUE WN OOONIO 


Look for the asterisk. X{*] is the same as X{lower:upper). 
If we find the asterisk then advance the character pointer beyond 
the asterisk and also increment the subscript count. 


PD RRR Re EE EE EE Tee tere 


S 


Mrron 


A_PTR = .CHARPTR; 
WHILE .LA PTRCO] EQL * * DO LA_PTR = .LA_PTR + 1; | 
Lf {tALPTRCO] EQ. ‘*' 


eee 


Morororor 


AAEM MVIVIVIW E BEBE LEE EOI 


PORIPIPIPIPIPIPININIPINIPIMMYPINPPPfPofty 
NOOO OOOO 
SRANTVSSSALSALSEA= 


BEGIN 
IF .NODEPTRCDBGSV_PNARR_RANGE] OR 
SCR_COUNT REQ 0 


(. SUBSCR_COUN 
((.STRUC REQ DSTSK_BLI_BITVEC) AND 
(.STRUC NEQ DSTSK_BLI_VEC) AND 
ae ee NEQ DSTS$K_BLI_BLKVEC)) 
SIGNAL (DBG$_INVRANSPEC) ; 


CHARPIR = -LALPTR 1; 
SUBSCR_COUNT = .SUBSCR_COUNT + 1; 


' Call_the Lexical Scanner to take us past the '," or 

or ‘J* or °)*. This will set TERMINATOR_CODE to the 
terminator that is seen. If we do not see a terminator 
then signal a syntax error. Also signal an error if 
*:" was the terminator. 


A.A. ALAI NAA 


CODON UNE WN $0 OOO VUE WN OOOO UE WIN SOOONOUSE 


DODODOODOOOODOOOOOODOODODOOVODOODOODODODODOOVOODOOVOOOOOODOOOOOSO 
whom 


Re Oe Os Oe Se Oe Be Oe Os Oe Be Oe Oe Ss Se Oe Oe Os Oe Oe Os 4 Ss Os Oe Se Oe Oe Oe Oe BF Oe Oe Oe Oe Be Os Os Os Oe Se OF OS Oe Oe Os Os Os Oe Oe Oe Se Se Sees ees 
DOOD OODOWDO WOO VOODOO DODO OOOO OODODODODDODOOODODODOODODDOOWOOODODOOODOOOOOOOOOO 


UR AREER RRR LEER EERIE & FUWWWWIWINININIIIROR PO POROPORUPONOROPONNONUPONPUPINUTU LI 


DOOOOOOOOOODO 
LEG 


a TOKEN = DBGSLEXICAL_SCANNER (FALSE FALSE, 
.SUBSCRIPT TERM TBL, 05; 
0 IF .TOKEN NEQ TERMINATOR_TOREN 
71 THEN 
72 BEGIN 


é | 
bagransth WESeoct9Bs QB:10:13  YABSIY BLingSaZ atsOzss , §Paae Gas 


3 3 7 73 LOCAL 

3; 927 74 ett e STRING: wnat 

3; 927 75 neat S RiNeity ® 

: 927 7 ASCIC“STRING . CHARPTRCOI; 

; et ; f ; SIGNAL (DBCS, SYNERREXPR 1, ASCIC_STRING); 

; g 79 4 IF TERMINATOR CODE EQL TOKENSK_TERM_COLON 

3 9 Si 9380 4 THEN 

39 9381 4 SIGNAL (DBG$_INVRANSPEC); 

; 4 5 4 ¢ 2 a CODE EQL TOKENSK_ TERM_NONE 

3; 9 se 4 SIGNAL (DBG$_MISCLOSUB) ; 

39 5 4 CHARPTR = .CHARPTR + . TERMINATOR_LENGTH; 

; 9289 3 56 4 

3; 9290 87 4 

; 9291 9388 4 ! Turn this reference into a ‘ee 

39 4 9389 4 i 

3; 929 9390 4 NODEPTREDBGSV_ PNARR_RANGE] = 

> 9294 9391 4 LOW _R VAL~= .NODESUBP ePiato, ROBESL PNSUB_LBOUNDJ; 

3; 9295 % 8g 4 SUBDECTOREO = .NODESUBPTRE DBGSL _PNSUB_ OBOUND); 

3; 9 38 238 4 END 

3; 929 9394 & 

3; 9298 444 3 ELSE 

3; 9299 9396 4 BEGIN 

; 9300 9397 4 

3; 9301 Ba6 4 

3 4 9399 4 ' Call the Expression Parser to pick up the next subscript. Note that 
: 930 9400 4 i we set the radix to decimal over this call and then restore it. Also 
3 9304 9401 4 i mote that OWN vortebles TERMINATOR CODE and TERMINATOR LENGTH are set 
: 9305 94't 4 i by the Expression Parser as side-effects. 

3; 9306 9403 4 i 

; 9307 9404 4 SAVED RADIX = wet RADIX; 

3; 9308 9405 4 EXPRESSION_RADIX = DBGS$K AL 

; 9309 9406 4 VALPTR = DBGSEXPRESSION th nse, -SUBSCRIPT_TERM_TBL); 

3; 9310 9407 4 EXPRESSION_RADIX = .SAVED_ 

3 oet3 9408 4 

3; 9 \¢ 9409 4 

3; 931 9410 4&4 ' Check the terminator code. If there was no terminator (i.e., the 
: 9314 9411 & ! input Line just ended), signal an error. Otherwise we got a comma, 
3 Bele Belg ? colon, or closing bracket and we increment CHARPTR to get past it. 
; 3319 9414 & if . TERMINATOR CODE EQL TOKENSK_TERM NONE THEN SIGNAL (DBG$_MISCLOSUB) ; 
; 9318 9415 & CHARPTR = ~CHARPTR + . TERMINATOR LENGTH; 

3 4384 Beg 4 

3; 9 $y 9417 4 

3; 9321 9418 4 ' Check whether this “‘subscript’’ is actually a BLISS field name. If 
; 8856 9419 & i so, set up a pointer to the BLISS field components and copy those 
3 8357 oS ? 2 ; four components into the subscript vector. 

: 9325 94 § 4 if -VALPTR CDBGSB_DHDR_FCODE] EQL RSTSK_TYPE_BLIFLD 

5 83 $ 94 4 THEN 

3:9 9424 5§ BEGIN 

3 33 : Be 5 IF .NODEPTRCDBG$V_PNARR_RANGE) AND (.SUBSCR_COUNT EQL 0) 

; i oe ; SIGNAL (DBG$_INVRANSPEC); 

; 33 2 9429 PTR = VALPTRCDBGS$A_VALUE_ADDRESS); 


40-74 Page 299. 
géR 63551 ~~ 


Mm 4 
vos-000"" 1e-$ep-1986 15:17:50 EDkauG. SRCSDBGPAR Lig 


: 9333 9430 H COUNT = preted: 

; 4 4 34 1 2 INCR 1 FROM 76 .COUNT DO 

: 9 94 : 6 IF .SUBSCR COUNT LSS 5 THEN SUBVECTORC.SUBSCR_COUNT] = .PTRE.1); 

3; 9 9434 SUBSCR_COURT = .SUBSCR_COUNT + 1; 

3 g : ae 5 END; 

: 9340 3039 END 

: 98c2 3039 

: 9 rk 9440 : ! The subscript is not a BLISS field name so we pick up the subscript 
>; 9344 944) ! value and convert it to integer. This subscript value is then put | 
3 5 Bee : away in the subscript vector and the subscript count is incremented. 
; $347 9444 & ELSE 

3; 9348 9445 5 BEGIN 

: 9380 gece 8 

3 $351 Bees : Convert the value descriptor to an integer value. 

; 9388 9450 § VALUE = CONVERT_TO_INTEGER (.VALPTR); 

: 93s 3482 3 

: 9356 3088 é ! If the terminator is a colon, we have the first part of a sub- 

: 9357 9454 § ! script range specification (such as “‘ARR[2:5]"'). See if a range 
; 9358 9455 5 ! specification is allowed (it is only allowed on the first sub- | 
3; 9359 9456 5 ' script of a bitvector, a normal vector, or a blockvector) and | 
3 9300 ot H4 : : Save away this lower value of the range. 

: 936 9459 5 iF .TERMINATOR_CODE EQL TOKENSK_TERM_COLON 

; S3ez 3ce) 2 THEN GIN 

> 9365 246 6 IF .NODEPTRCDBG$V_PNARR_RANGE) OR 

; 9366 9463 6 (,SUBSCR_COUNT REQ 0) 

3 9367 9464 7 ((,STRUC REQ DST$K_BLI_BITVEC) AND 

3; 9368 9465 7 (.STRUC NEQ DST$K_BLI_V AND 

3 44 3788 i cSt NEQ DSTS$K_BLI_BLKVEC)) 

; 9371 2468 6 SIGNAL (DBG$_INVRANSPEC) ; 

; 3378 9470 6 NODEPTRCDBG$V_PNARR_RANGE) = TRUE; 

3 9374 9471 6 LOW_RANGE_VAL™= .VACUE; 

3; 9375 9472 6 END 

<r e: 

; 9378 9475 6 : The terminator is not a colon, so we have the complete specifica- 

3; 9379 9476 6 ! tion for the current subscript. Here we simply fill the subscript 

3 otey 9477 6 ! value (or the upper bound of the range) into SUBVECTOR and incre- 

3 9381 9478 6 ' ment the subscript count. We can ignore subscripts after the 

: 44 9479 6 ! fifth one because they will be in error anyway. 

; 938 9480 g ‘ 

: 3aes 9482 & ELSE GIN 

; 44 gc8s ° ad _ SUBSCR_COUNT LSS 5 

; 9388 9485 6 SUBVECTORE.SUBSCR_COUNT) = .VALUE; 

3; 9389 9486 6 
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; 9390 9487 SUBSCR_COUNT = .SUBSCR_COUNT + 1; 
; 9391 sch 8 END; ~ ‘s 
3 9 9g 9489 END; 
3; 9 9490 END; 
: 3 36 3492 END ! End of WHILE L bscri 
; H ! End o oop over subscripts 
: 9396 3098 ; , 
; 939 9494 
; 9398 9495 ! We found the end of the subscript List, i.e. the closing subscript 
; 9399 oh 4 ! parenthesis. Now case on the kind of BLISS structure we are dealing 
: 9400 949 ! with and check the subscript values and build the Primary Descriptor 
; et are } Sub-Node accordingly. 
3 340 9500 CASE .STRUC FROM DSTSK_BLI_NOSTRUC TO DSTSK_BLI_BLKVEC OF 
3: 9404 9501 SET 
3 9405 2208 
3; 9406 950 
3; 9407 9504 ! Handle the Bitvector case. 
3; 9408 9505 : 
3 9409 9506 CDST$K_BLI_BITVEC): 
3: 9410 9507 BEGIN 
3; 9411 9508 
; Belg 9509 
3 ad Bae } Check that the bit-vector had exactly one subscript. 
3; 9415 g2§ : IF .SUBSCR_COUNT LSS 1 THEN SIGNAL(DBG$_TOOFEWSUB, 1, 1); | 
3 9416 951 IF .SUBSCR_COUNT GTR 1 THEN SIGNAL(DBGS$_TOOMANSUB, 1, 1); 
3; 9417 9514 
3; 9418 9515 
3 9419 9516 ; ! Check that the subscript value is in range. 
3; 9420 9517 } 
3 9421 9518 ; IF NOT .REF_FLAG 
3 ht) 9519 THEN 
3; 942 9520 4 BEGIN 
3 9426 9521 4 IF (.SUBVECTORCO] LSS 0) OR 
; oh +4 9256 ? (,SUBVECTORLO] GEG .DSTPTRCDST$L_BLI_BITVEC_SIZE]) 
3 9427 9524 4 SIGNAL (DBG$_STRUCSIZE, 2, 
3 9428 9525 4 -DSTPTRCDSTSL_BLI_BITVEC_SIZEJ, .SUBVECTOR[0)); 
3: 9429 9526 4 
3 9430 9527 4 
3 9431 9528 4 ! If a subscript range was specified, check that the lower range 
3 ok: 9880 ? value is also in range. 
: 3e32 9531 4 IF .NODEPTRCDBG$V_PNARR_RANGE) AND 
3 9435 2286 5 ((,LOW_RANGE_VAL 
3 9436 9533 5 (.LOW-RANGE_VAL GEQ .DSTPTRCDSTSL_BLI_BITVEC_SIZE])) 
3 9437 9534 4 THEN 
3 9438 9535 4 SIGNAL (DBG$_STRUCSIZE, 2 
3 9439 9536 4 .DSTPTRCDSTSL_BLI_BITVEC_SIZE), -LOW_RANGE_VAL); 
3: 9440 9537 END; 
3 9441 9538 
3 944 9539 7 
3 944 9540 ! Fill in the Primary Descriptor Array Sub-Node. 
3 9444 9541 } 
3 9445 9948 NODEPTR [DBG$B_PNARR_SUBCNT) = 1; 
> 9446 954 NODESUBPTR CO, ~DBGSL~PNSUB_SVALUE) = .SUBVECTORCO); 
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3 9447 9544 3 
3 Bees 220? END; ! End of bitvector case : 
: 9450 3809 | ; 
3; 9451 gee ! Handle ordinary BLISS vectors. : 
: ott 954 1 3 
3 945 9550 CDSTS$K_BLI_VEC]: ; 
3 Bee! 3224 BEGIN : 
; 9496 3288 ; 
3 of 14 B22e Check that the vector had exactly one subscript. : 
: 9459 9556 if -SUBSCR_COUNT LSS 1 THEN SIGNAL(DBG$_TOOFEWSUB, 1, 1); ; 
: res eH 4 IF .SUBSCR_ COUNT GTR 1 THEN SIGNAL(DBG$_TOOMANSUB, 1, 1); ; 
: 946 9559 | : 
; 946 9560 ! Check that the subscript value is in range. 3 
3 9464 9561 ' | F 
+ Het ote rs i 
e e 
3 9467 9564 4 BEGIN 3 
; 9468 9565 4 IF Ber Math t LSS 0) OR | ; 
3 tH 3208 ? cone sen 0] GEQ .DSTPTRCDST$L_BLI_VEC_UNITS)) : 
: 9471 9568 4 SIGNAL (DBG$_STRUCSIZE, 2, | : 
; 947 9369 4 -DSTPTRCDSTS$L_BLI_VEC_UNITSJ, .SUBVECTORCO)); | : 
: 9474 9571 4 | : 
3; 9475 92§ 4 ! If a subscript range was specified, check that the lower range 3 
; ge8 geht ? value is also in range. : 
: 9478 9575 4 iF .NODEPTRCDBGSV_PNARR_RANGE] AND | : 
3 9479 9576 5 ((. LOW _RANGE_VAL L 0 : 
; Bene gare i 5 LOW RANGE VAL GEQ .DSTPTRCDST$L_BLI_VEC_UNITSJ)) ; 
: 948 9579 4 SIGNAL(DBG$_STRUCSIZE, 2, : 
> 948 9580 4 .DSTPTRCDST$L_BLI_VEC_UNITSJ, .LOW_RANGE_VAL); | ; 
abe 3382 mee ; 
: 9486 3383 | ; 
; v4 14 4 + Fill in the Primary Descriptor Sub-Node. | : 
> 9489 9586 NODEPTR (DBG$B_PNARR_SUBCNT) = 1; | ; 
; 9490 9987 NODESUBPTR C0, DBG$L~PNSUB_SVALUE] = .SUBVECTORLO]; | : 
: oe £344 END; ! End of BLISS vector case | ; 
> 9494 9591 | : 
3 9495 8206 ' Handle BLISS blocks. 3 
3 9496 959 ! 3 
. ee: berg py men : 
> 9499 959 ; 
3; 9500 3399 ' Fill in the correct information for the orrey subnode é 
3; 9501 9598 ! (It was dummied up as an array of longwords for purposes 3 
3 308 +444 } of aggregate output earlier). : 
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; 9504 9601 TRIDE = .DSTPTR COST$V_BLI_BLOCK_UNIT_SIZE]; 
5 32ge $609 DESUBPTR io. DBGSL_PNSUB_STRIDE] = .STRIDE; 
; 9 66 308 NODE SUBPTR paGsL Pusu UBOUND = 
: 9 9604 DSTPTR COST$L_BCI B 1$)-1; 
; 9508 9605 ODEPTRCDBG$W_PNARR SrENGTHT UNSTRIDE; 
3; 9509 4414) IF .STRIDE EQC 1 
; 9510 960 THE 
; 9511 9608 IF .SUBVECTOR(3) 
3 921¢ 9609 THEN 
; Belz aol? LgeOOerTn CDBGSB_PNARR_DTYPE] = DSCSK_DTYPE_B 
3; 9515 2618 NODEPTR £D8G B_PNARR_DTYPE] = DSCS$K_DTYPE_BU 
: 9516 961 ELSE IF .STRIDE E 
3; 9517 9614 THEN 
; 9518 9615 IF .SUBVECTORC3) 
3; 9519 9616 H 
; 9260 + 34 NODEPTR COBGSB_PNARR_DTYPE] = DSCSK_DTYPE_W 
; $538 9619 NODEPTR COBGSB_ PNARR_DTYPE] = DSCS$K_DTYPE_WU 
; 95 9620 ELSE IF .STRIDE EQL 4 ~ 
3 9524 9621 THEN 
; 9525 96 ¢ If .SUBVECTORC3] 
3; 9526 96 THEN 
3; 9527 9624 NODEPTR COBGSB_PNARR_DTYPE] = DSCS$K_DTYPE_L 
; 9528 9625 ELS 
3 93¢8 9626 NODEPTR CDBG$B_PNARR_DTYPE] = DSC$K_DTYPE_LU 
; 9530 9627 ELSE 
3; 9531 9628 4 
3 9236 9609 4 IF .SUBVECTOR(3) 
3; 953 9630 4 THEN 
; Sage 303) : NODEPTR CDBG$B_PNARR_DTYPE] = DSC$K_DTYPE_V 
3; 9536 3038 4 NODEPTR CDBG$B_PNARR pType) = DSCS$K_DTYPE_V 
3 9537 9634 4 NODEPTRCDBG$W_PNARR_LENGTH) = 8 * PNODEPTRLDBGSW. PNARR_LENGTH); 
; 9538 9635 END; 
3; 9539 9636 
3 E94: st 14 Check that the block had exactly four subscripts. 
3 9266 9639 3 IF .SUBSCR_COUNT LSS 4 THEN SIGNAL(DBG$_TOOFEWSUB, 1, 4); 
3 954 9640 IF .SUBSCR-COUNT GTR 4 THEN SIGNAL (DBG$_TOOMANSUB, 1, 4); 
3 9544 9641 
3 9545 9668 : 
3; 9546 964 ! Check that the subscript values are in range. 
3 9547 9644 ! 
3; 9548 9645 IF NOT .REF_FLAG 
3 9549 9646 THEN 
3; 9550 9647 IF (. SUBVECTOR 6} LSS 0) OR 
3 9551 9648 4 (,SUBVECTORCO] GEQ .OSTPTRCDSTS$L_BLI_BLCCK_UNITS)) 
3 Beeg 9649 THEN 
3 955 9650 SIGNAL (DBGS STRUCSIZE, 2 
; 9336 9631 DSTPTRLDST$L_BLI_GBLOCK_UNITSJ, .SUBVECTORCO)); 
3 9226 3088 If (:SUBVECTORE| jt LSS -%x'8000") OR 
3 et t4 3028 4 (.SUBVECTORL1] GTR &X'7FFF") 
3; 9559 9656 ; SIGNAL (DBGS_ILLOFFSET, 1, .SUBVECTORC1)); 
3; 9560 9657 
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IF (,SUBVECTOR[2) LSS 0) 
THEN 


1 a, 
; 4 es 3660 SIGNAL (DBG$_ILLLENGTH, 1, .SUBVECTOR(2)); 
: 2 65 966 4 If .SUBVECTORL2] GTR 32) 
ee RY vs 
> 9569 9666 4 Rots sizétiunc): 
ge HY oa 
: 9928 96 } IF | etentia NEQ 0) AND (.SUBVECTORC3) NEQ 1) 
: 9574 9671 SIGNAL (DBG$_ILLSIGEXT, 1, .SUBVECTOR[3)); 
$i 
; 9577 43 Fill in the Primary Descriptor Sub-Node. 
: 9579 967 PRIMPTR [DBGS$V_DHDR_BLIBLK] = TRUE; 
: 9580 967 PRIMPTR CDBG$V-DHDR-SUBREF] = TRUE: 
: 9581 9678 PRIMPTR CDBGSV-DHDR-BITREF] = TRU 
; 98¢ 9679 PRIMPTR [DBG$SW-PRIM-OFFSET] = POUBVECTOR 1: 
: 958 9680 PRIMPTR [DBG$W~PRIM-LENGTH] = .SUBVECTOR @13 
> 9584 9681 PRINPTR DaGSv- HDR"SGNEXT] = .SUBVECTOR 
: 9585 968 NODEPT DaGsB B"PNARR_SUBCNT) = 
; 9386 9683 NODESUBPTR 0, ~DBG$L~PNSUB_ SVALUE) = . SUBVECTORCO]; 
: 9588 9685 3 END; ! End of BLISS block case 
ge is 
: 444 pene Handle the Blockvector case. 
+ 3398 9690 CDST$k_BLI_BLKVEC): 
: 3e96 3692 actle 
3 9596 969 ! We previously represented the block as a block of longwords, 
3; 9597 9694 i for perpeees of aggregate output. If we get here, however, 
3; 9598 9695 i we are no longer doing aggregate output. 
3; 9599 9696 i So, fix up the information 
3 4's +244 here, tilting in the correct stride. 

: 960 9699 STRIDE = .DSTPTR CpsTsB ot! BLtve UNIT rs! 126); 

+ 960 9700 NODE SUBPTR i DBGSL_P DE} 5 STRIDE; 

> 9604 9701 NODESUBPTR (1. DBGSL™ PNSUB- UB0uN = 

> 9605 9708 -DSTPTR COST$L_BCI B UKOEC.UN NITSI=1; 

; 9606 970 NODEBTREDBGSU PNARR er ENGTH STRIDE; 

+ ns earn | 

F 9609 9706 IF , SUBVECTORC4] 

; 3611 9708 NODEPTR CDBGSB_PNARR_DTYPE] = DSCSK_DTYPE_B 

; 3018 9710 NODEPTR CDBG$B_PNARR_DTYPE] = DSC$K_DTYPE_BU 

: 9614 9711 ELSE IF .STRIDE EQL 2 ~ 

: 9616 3718 IF .SUBVECTOR(4) 

> 961 9714 THEN 


<Q 
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; 961 9715 - NODEPTR CDBGS$B_PNARR_DTYPE] = DSCSK_DTYPE_w 

; 96 3718 NODEPTR CDBGSB_PNARR_DTYPE3 = DSCSK_DTYPE_wu 

; 96 9718 ELSE IF .STRIDE EQL 4 

: 96 ; 971 THEN 

; 96 ; 97 9 IF .SUBVECTOR(4) 

; 9605 2706 NODEPTR CDBGSB_PNARR_DTYPE] = DSCSK_DTYPE_L 

: 96 $ 9724 NODEPTR CDBGSB_PNARR_DTYPE] = DSCSK_DTYPE_LU 

: 3¢ § 3 3 4 ELSE GIN 

; 36 37 § é IF ; SUBVECTORC4] 

; 36 ; 97 ; 4 eu ge NODEPIR [DBG$B_PNARR_DTYPE] = DSC$K_DTYPE_V 

: 96 9731 4 NODEPTR CDBG$B_PNARR DIVPE} = DSCSK_DTYPE_vu; 

3 oe 5 4 ¢ 4 poser tn DBGSW_PNARR_LENGTH) = 8 * .NODEPTRCDBG$W_PNARR_LENGTH); 
: 96 9734 ’ 

3 $e 44 2 } Check that the block-vector had exactly five subscripts. 
; 9640 9737 if .SUBSCR_COUNT LSS 5 THEN SIGNAL(DBG$_TOOFEWSUB, 1, 5); 
; 9641 9738 IF .SUBSCR-COUNT GTR 5 THEN SIGNAL(DBG$-TOOMANSUB, 1. 5); 
; se78 9740 

3; 9644 9741 ! Check that the subscript values are in range. 

> 9645 9743 i 

; 9646 9748 If NOT .REF_FLAG 

> 9648 9745 & BEGIN 

+ 9649 9746 4 IF (. SUBVECTORCO} LSS 0) OR 

; 9650 9747 ; “SUBVECTORLO] GEQ .DSTPTRCDSTS$L_BLI_BLKVEC_BLOCKS)) 
: 965 9749 & SIGNAL (DBG$_STRUCSIZE, 2 

; 9658 9750 4 .DSTPTRCDSTS$L_BLI_GLKVEC_BLOCKS], .SUBVECTORCO)); 
: 9655 973¢ 4 IF (.SUBVECTOR 13 LSS 0) OR 

3 +4) 48}, ? peg SUavECTOR 1] GEQ .DSTPTRCDSTSL_BLI_BLKVEC_UNITS]) 
: 9658 9755 4 SIGNAL (DBG$_STRUCSIZE, 2 

; 9659 9796 4 “aes .DSTPTRCDSTSL_BLI_BLKVEC_UNITSJ, .SUBVECTOR(1}); 
: 9661 975 ; ; 

; 966¢ 3726 IF (. SUBVEC TORE] LSS -%x'8000") OR 

+ 966 9760 4 ({SUBVECTORC2) GTR &X'7FFF') 

+ 9664 9761 N 

> 9665 9766 SIGNAL (DBGS$_ILLOFFSET, 1, .SUBVECTOR[2]); 

; 366? 9764 & IF «.SUBVECTORC3] LSS 0) 

+ 9668 9765 

3 +444 46 SIGNAL (DBG$_ILLLENGTH, 1, .SUBVECTOR[3)); 

: 9671 9768 4 IF (.SUBVECTORE3] GTR 32) 

; 9678 9769 3 THEN 

: 967 9770 4 BEGIN 

> 9674 9771 4 SUBVECTOR[3) = 32; 
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! Any other case should never occur and constitutes an internal 
error in the BLISS Debug Symbol Table (DST). 


CINRANGE, OUTRANGE): 
SIGNAL (DBG$_INVDSTREC); 


TES; ! End of CASE of BLISS structure type 


SNS NN 
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: If @ subscript range (as in ARRC2: $2) was $s pect died for the first sub- 
: script, modify the array’s lower and upper Rounds n the Primary Descrip- 
i tor to represent the array ‘'slice’’ specified by that subscript range. 


9675 77 SIGNAL (DBG$_SIZETRUNC); 
se pe 
ooo $178 4 If (.SUBVECTORC4] NEQ 0) AND (.SUBVECTOR[4] NEQ 1) 
pont $77 SIGNAL (DBGS_ILLSIGEXT, 1, .SUBVECTOR(4)); 
968 3358 
968 9780 ! If a subscript range was specified, check that the lower range 
Sone 44 value is also in range. 
9685 7 F NOT .REF_FLAG 
3e87 378 el 
9688 9785 Mie -NODEPTRCDBGSV_PNARR_RANGE] AND 
9689 97 § 4 ((.LOW_RANGE_VAL~ 
9690 97 4 (LOW? RANGE-VAL GEQ .OSTPTRCDSTS$L_BLI_BLKVEC_BLOCKS))) 
9691 9788 THEN 
969 9789 SIGNAL (DBG$_STRUCSIZE, 
969 9790 .DSTPTRCDSTS$L_BLI 2 eLKVEC _BLOCKS], .LOW_RANGE_VAL); 
9694 9791 
9695 447 
979 ! FILL in the Primary Descriptor Sub-Node. 
969 9794 ! 
9698 9795 PRIMPTR CDBGSV_DHDR_BLIGLK) = vue: 
99 97 PRIMPTR CDBG$V_DHDR_SUBREF) = TRUE; 
979 PRIMPTR CDBGSV_DHDR_BITREF) = 
9701 9798 PRIMPTR (DBGSW_PRIM_OFFSET) = “SUBVECTOR nS): 
970 9799 PRIMPTR CDBGSW_PRIM_LENGTH] = BVECTOR 
970 9800 PRIMPTR COBGS$V_DHDR er ttt n “SUBVECTORCG 
04 9801 NODEPTR LDB NARR _5UB 
9705 980 NODESUBPTR (0, ~pbesL ~PNSUB “van by = . SUBVECTOR(0); 
44 9 NODESUBPTR [1, DBGSL_PNSUB~SVALUE .SUBVECTORL1): 
9708 9805 ! If there was a range on the first subscript then make 
+4 464 the second one into a range too. 
11 9808 IF .NODEPTRCDBGS$V_PNARR_RANGE J 
\¢ 9809 THEN 
1 9810 4 BEG 
14 9811 4 BOSE SUBPTR Ft. DBG$L_PNSUB_LBOUND] = Saves TON Y2 
1? ps $ +" ath ial DBG$L_PNSUB-UBOUND) = .SUBVECTOR[1]; 
13 9814 END; ! End of BLISS block-vector case 
1 
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; 97 ; 9829 

; f 9 1 eis - NODEPTRCDBG$V_PNARR_RANGE } 

3; 9735 9 § "BEGIN 

3; 97 .] IF .LOW RANGE_VAL GTR .SUBVECTOR([O] THEN SIGNAL (DBG$_INVRANSPEC); 
; 97 9834 NOD DESUBPTR » DBGSL _PNSUB -SVALUEJ = .LOW_ banat VAL; 

3; 97 5 9835 NODESUBPTRLO, DBGSL~ “PNSUB_LBOUND] = .LOW”RANG EYAL: 

3; 97 4 § NOBESUBPTR ’ DBGSL~ “PNSUB_UBOUND) = .SUBVECTORT 

; 9740 9 RETURN 

: 9741 9 8 END; 

3 ores 9 

: are 9 “9 

3; 97446 984 ! Build a new subnode. The typeid that we pass in to 

3; 9745 9 ‘ i BUILD _PRIMARY _ SUBNODE describes the element referenced b 

3 dog | ss oh subscript expression. This typeid is pulled from the CEL rtPE field. 
P dirs | oF een St el gy}! SUBNODE (.PRIMPTR, RSTSK_DATA, 

3 974 9 46 E_ATOMIC, .NODEPTRLDBGS$L_PNARR CELL TYPED, 0); 

3; 9750 984 RETURN; 

3; 9751 9848 END; 
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. Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
SE 3¢ 0000 SUBL2# sP 
6 04 AC 5 0000 MOVL PRIMP 
000000006 99 56 DO 00009 MOVL i backct 7GURRENT _PRIMARY 
OC A6 DO 00010 MOVL (R6) 
12 12 00014 NEG 
08 AC DD 00016 USHL ane 
01 DD 00019 PUSHL “1 
000281A8 8F DD 00018 PUSHL 4264, 
000000006 00 03 FB 00021 CALLS a3. IGNAL 
54 OC A2 D0 00028 1$: MOVL tainstetn) DSTPTR 
06 AE 04 a6 9E 0002C MOVAB 4(R (SP) 
06 04 BE 08 1 Fb 0031 CMP2V a a4(SP), #6 
1 0037 BEQL as 
07 Ad 9F 00039 PUSHAB 7(DSTPTR) 
1 DD 0003¢ PUSHL 
000281A8 8F DD E PUSHL #164264 
000000006 00 3 FB 00044 CALLS #3, LIBSSIGNAL 
1¢ AE OOF 4B 2%: PUSHAB TYPEID 
24 AE OOF af PUSHAB FCODE 
3 DD 6 3 PUSHL RSTPTR 
000000006 00 FB 3 CALLS #3, DBGSSTA_SYMTYPE 
D 20 Ae D oA CMPL sd FCODE, #13 
12 13 0005 EQL 
07 AG OOF PUSHAB 7(DSTPTR) 
1 DD 0006 PUSHL 
000281A8 8F DD 0006 SHL 
000000006 FB $ CALLS , #3, tesstcn 
Y 05 Ab di 3$: EXT2V {SSTPTR) . STRUC 
2 0007 BNEQ 
07 Ad OF OOO7A PUSHAB PpsteTR) 
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000281A8 Ht BD Bote Suet Fh 64266 : 
000000006 00 3 F 5 CALL A LIBSS1GNAL ; 
05 Ad ? C 4$: iste (OSTPTR) : 9310 
54 DD 0009 PUSHL  DSTPTR + 9314 
"BP Ro pe fe oe 
7E oe a 38 MOVQ #6, =(SP) : 
6 Dd 00098 PUSHL : 
D88C cf 06 FB 00090 CALLS #6, DBGSBUILD_PRIMARY_SUBNODE ; 
g a & p Ong MOVL 2 (Rg) NODEPTR : 9315 
OA A A BIS82 #1, 10(NODEPTR) : 9 16 
6E 1 DO OOOAA MOVL #1, REF_FLAG : 931 
2 11 OOAD BRB 6$ + 9310 
6E D4 OOOAF 5S CLRL = REF_FLAG + 9320 
52 18 «OA B0 0081 6$ MOVL e4(RG), NODEPTR + 9326 
5 28 A2 9€ 00085 MOVAB 40(R2); NODESUBPTR + 9327 
58 A 4 0089 MOVAB 8(NODEPTR), R11 : 9328 
02 AB o1 88 000BD BISB2 #1, 2(R11) : 
5 04 000C1 CLRL SUBSCR COUNT + 9336 
00000000' FE 01 00 000¢3 MOVL #1, TERMINATOR CODE + 9337) 
2 00000000' cf D1 OOOCA 7$: CMPL § TERMINATOR_CODE, #2 : 9338. 
3 12 00001 BNEO 8$ ; | 
01A1 31 00003 BRW 29$ ; | 
59 00000000' EF 0 0006 8$: MOVL §CHARPTR, LA_PTR + 9346) 
20 69 91 000DD 9$: CMPB 3s (LA_PTRS, #32 > 9347. 
04 12 000E0 BNEQ 10$ ; 
59 06 000E2 INCL  LA_PTR : 
F7 11 OO0E4 BRB 9$ : 
2A 69 91 OOE6 10$:  CMPB (LA_PTR), #42 + 9348. 
03 13 OE BEQL 118 ; 
0082 31 000EB BRW 17 : 
13 68 13 € OOEE 11$: BBS #19, (R11), 128 + 9351 
55 05 000F TSTL § SUBSCR_COUNT + 9352 
OF 12 000F4 BNEG ~=«'12$ : 
02 38 D1 000F6 CMPL STRUC, #2 > 9353 
17 13 000F9 BEQL 138 ; 
01 58 Di O00FB CMPL  S$TRUC, #1 + 9354 
12 13 OOOF BEQL 138 : 
04 58 pi 001 CMPL  STRUC, #4 + 9355 
OD 13 10 BEQL ©-:13$ ; 
poonoens gg ree oO PR aaias oe’ EAE Sie lesstonm ‘Jane 
titties EF 01 AD Of 198 13$: V 1(R9), CHARPTR + 9359 
33 D6 OO1IA INCL § SUBSCR_COUNT : 936 
E 04 OO11C CLRL 30s = (SP) : 936 
00000000' ai bp 11E PUSHL  SUBSCRIPT_TERM_TBL : 9369 | 
—E 7C 00124 CLRQ. = =(SP) : 9368 
£235 CF g4 Fe 126 CALLS #4, DBGSLEXICAL_SCANNER ; 
18 OA 0 p 128 VL. «RO, TOKEN : 
2 00000000" EF 9E 12F MOVAB TERMINATOR, TOKEN, RO : 9370 
18 AE ; 1 CMPL «TOKEN, R : 
1€ 13A BEQL 148 : 
34 AE 01 90 001 c MOVE #1, ASCIC_STRING : 9375 
5 AE 00000090" FF 90 0014 MOVE = @CHARPTR, “ASCIC_STRING#1 : 937 
4 AE 99F 00148 PUSHAB ASCIC_STRING ; 937 
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=32 v4.0-74 (37) 
5 DEBUG. SRCIDBGPARSES, 04951 
-$ep-1984 02:10: - SRCJDBGPA ) ; 
15-Sep-1984 3:19:35 Eoeaue : 
eet $166370 : 9379 
LIBSSIGN : 
ve 000289E2 BF it 138 1468: tree TERMINATOR_ CODE. #3 9381 
a ’ Q ¢ 
me 88 00000000" te Obie PUSH He LISSSIGNAL i 
00028F08 = BF DD 18 158: FSTL” TERMINATOR. CODE ; 9384 
aetna eS 176 ie. W167568 : ¢ 9385 | 
00028E90 ' 4 1 Sobt TEAMJNATORLENGTH, CHARPT 3305 | 
00 , 1 ; 16$: #8, ) OW _RANGE_VAL + 9392 | 
SEES ff omomnon FB mit FREIRINs Dat ig 
V : 
SA oe AS BO 00198 BRW PRESSION RADIX, SAVED_RADIX i 9405 
28 AE FFeA 31 0019) BRU FON EXPRESS 10M RADIX 
19, Bg Socoooc” FF be a PUSHL SUBSCRIPT. TERM TBL ; | 
00000000" EF 00000000° cr bb 0185 cURL i. Fesernentompenseh 9407 
FB 0018 MOVL 0, EXPRESSION_ : 
eal fot aes Hinhattl 8 Paes 
' €F 10, 01C7 18$ ; | 
00000000° EF 30 ep 13 001CD PUSH #1 LIBSSIGNAL snanaies : $613) 
eee FOUR ADOL2 TERMINATOR LENGTH, jw 
00 £0 001De 188: 6(VALPTR), 9425 
esa F 00000000 fF 91 Bai es ENEG 23$ +“. to | 
000 E 06 38 12 OO1€B BBC #19, (RI or : 7| 
Be TR sat _ 
6B 0 NEG é 
: Pe Tae 4 
00028F 08 01 FB OO1FB MOVAB 32(R : 9431) 
: UNT 
000000006 99 20 AT OF 00303 198 HOVE € to t 9438 
1 es 5 i 6 OF : GRP. §QBSCR_COUNT, #5 at Ry 
05 i 18 00 i oa ROVL suascR-COUNT sent £ 9c3t | 
0 M R_COUNT + 9422 | 
D0 0021 ; NCL. SUBSCR_ : 
ae Ce ee 8 
a : 
ED 50 4 of i 6 ; a: #}. CONVERT _TO_INTEGER 9459 
; ¢ 30 0 00 CHPL TERMINATOR. CODE, W3 : 9462 
ef ag 000000' , » ; " BNEG 268 (R11), 248 g GS | 
03 00 ‘ ! 9 re, SUBScR COUNT > 9464 | 
D 4$ : 
13 68 ¥ ? f ee s{RuC. #2 : 9465 
+ 3 oop44 tne StRUC, #1 ’ 
- $8 i 002e6 seat «358 
01 12 Ey 0249 


eee 
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28 


04 
00A9 OO1A 


000000006 


000000006 


000000006 


000000006 


06 


000000006 
1€ 


06 


04 $ 
00028F08 BF 
00 1 
AB 8 
5A oc AE 
05 88 
06 
AESS . 6 
: 
9° P] 
0036 8008 
1F7 
0002832A F 
00 03 1 
rf 
11 
01 
4 
00028EA0 F 
00 03 
01 25 
HS 
! 
11 
; 
O0028EAO = BF 
00 03 
01 95 
11 
01 
3 
00028E80 F 
0 03 
4 6E 
5 28 06 
et 
14 
50 
06 a3 
00028078 = &F 
00 4 
68 3 
A 
Ab Bf 
14 
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#8, 2(R11) 
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SCR_COUNT, #5 
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#167600 

#3, LIBSSIGNAL 

REF _FLAG, 41$ 
VECTOR, RO 


RO, 6(DSTPTR) 
39§ 


RO 
6(DSTPTR) 
#163963 
a4 LIBSSIGNAL 
wi9, (R11), 418 
WW_RANGE_VAL 

LOW_RANGE _VAL, 6(DSTPTR) 
41$ 


Kk 5 
GPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 310 
it ergeet3Be 9S:19:43 = PANSNE Sbigse3s Nes0-243 ge 310 
SA DD D 40$:  PUSHL LOW_RANGE_VAL : 9580) 
06 A BD bate us XDSTP TAD _— 
00028078 a DD 12 PUSHL #163963 : 
000000006 00 ‘ £8 A CALLS #4, LIBSSIGNAL : 
014 1 418: BRW 1 : 9586 | 
50 OA AG 04 6 EF 4 42$: EXTZV #0, #4, 10(DSTPTR), STRIDE + 9601 | 
04 A3 D A MOVL  STRIC (NODES Pfr) + 9602 
OC A3 6 Ab Re SUBL3 #1, 6(DSTPTR), 12(NODESUBPTR) + 9604 
iC Ae 2 0 MOVW TRIDE, 28(NODEPTR) + 9605 
; 18 «OA : MOV 4(NODEPTR), R1 + 9610 
1 ; b C CPL STRIDE, #1 + 9606 
06 34 OA 5 0341 BLBCOsSSS VECTOR+12, 43$ + 9608 
02. Al 06 90 00345 MOVB #6, 2(R1) + 9610 
42 11 00349 BRB 51$ ; 
02. Al 90 00348 43$ MOVB #2, 2(R1) > 9612 
C 11 OO34F BRB 51$ + 9608 
02 6 D1 00351 44$ CMPL STRIDE, #2 + 9613 
10 iF 0354 BNEQ  46$ F 
06 34 AE i 0356 BLBC SUBVECTOR#12, 45$ + 9615 
02. Al 07 90 0035 MOVB -#7,,:-2(R1) : 9617 
D 11 00 5E BRB 51§ ; 
02. Al 3 90 00360 45$ MOVB #3, 2(R1) i 9619) 
7 11 00364 BRB 51§ + 9615 
04 0 D1 00366 46$ CMPL STRIDE, #4 + 9620 
10 lg 00369 BNEG 48$ ; 
06 34 AE f 00368 BLBC § SUBVECTOR+12, 47$ + 9622 
02. Al 08 90 0036F MOVB 8 2(R1) + 9624 
18 11 00373 BRB 5 : 
02. Al 04 90 0037 47$:  MOVB #4, 2(R1) + 9626 
12 11 0379 BRB 1 : 9622 | 
06 34 AE £9 0037B 48$:  BLBC SUBVECTOR+12, 49$ + 9629 
02. Al 91 90 0037 MOVB #1, 2(R1) : 9631 
4 11 00383 BRB ; 
02. Al 2 90 00385 49$:  MOVB #34, 2(R1) + 9633 
1C A2 ; AG 0389 50$:  MULW2 #8, 28(NODEPTR) + 9634 
04 D1 0038) 51$:  — CMPL SUBSCR_COUNT, 4 : 9639 
11 18 00390 BGEG $ ; 
04 oD 0 92 PUSHL 4&4 : 
o1 DD 00394 PUSHL #1 ; 
00028EAO 8F DD 00396 PUSHL #167584 ; | 
000000006 00 03 FB 00 %¢ CALLS #3, LIBSSIGNAL F 
04 D} 0 A3 52%: CMPL SUBSCR_COUNT, ry > 9640 
11 ne LEG ; 
4 DD 003A PUSHL #4 ; 
1 DD OO3AA PUSHL #1 F 
00028EBO 8F DD 003A PUSHL #167600 : 
000000006 03 F B CALLS #3, LIBSSIGNAL ; 
6— € B9 53$:  BLBS REF FLAG, 55$ + 9645 
28 «AE OD B MOVL SUBTECTOR, RO + 9647 | 
06 1 C BLSS 4$ F 
06 Ab D1 003¢ CMPL RO 6(DSTPTR) > 9648 | 
14 19 003¢ Biss 6_—«$5$ ; 
50 DD 0038 54$ PUSHL RO : 9651 
06 Ad DD OO3CA PUSHL  6(DSTPTR) : | 
02 DD 003CD PUSHL #2 : 9650 | 


§ | 
GPARSER 1b-se -1984 02:10: AX-11 Bliss-32 V4.0-74 Page 311 
iN 1 30071382 95:19:43 DEBUG. SRC IDBGPARSER -B3 31 . ay | 
00028078 8F DD O03CF PUSHL #163963 : 
000090006 90 4 FB 6 DS CALLS #4, LIBSSIGNAL : 
FFFF F 2c AE Db} DF 55$: CPL VECTOR+4, #-32768 : 9653) 
AE D CMPL BVECTOR+4, # + 9654. 
OOOO7FFF = BF 2c AE EG CPL ECT 32767 + 965 | 
2c AE DD 003FO 56S: PUSHL SUBVECTOR+4 + 9656) 
DD 003F PUSHL : | 
000280F0 BF DD 0 F PUSHL #164080 : 
000000006 99 3 FB 005FB CALLS #3, LIBSSIGNAL Pal 
30 AF DO 00402 57$:  MOVL : VECTOR+8, RBS + 9658 
11 18 00406 BGEO $ ; 
8 DD 004 PUSHL R + 9660 
1 OD 0040A PUSHL : 
O0028EE8 BF ODD 0040 PUSHL #167656 ; 
000000006 90 ; FB 0041 CALLS #3, L1BSSIGNAL F 
2 D1 00419 58$:  CMPL RB. & + 9662 
11 15 0041C BLEG ; 
30 AE 20 D0 0041 MOVL #32 SUBVECTOR+8 + 9665 
00028073 8F DD 004 PUSHL #16395 + 9666 
000000006 90 01 FB 004 CALLS #1, LIBSSIGNAL : 
8 34 AE 00 040F 59$:  MOVL SUBVECTOR+12, R8 + 9669 
16 13 00433 BEQL 60S ; 
01 58 D1 00435 CMPL RB, #1 : 
11 (13 004 38 BEQL 608 : 
58 DD 0043A PUSHL R8 + 9671 
01 oD 004 3¢ PUSHL #1 : 
00028140 8F OD 0043€ PUSHL #164160 : 
000000006 00 03 FB 00444 CALLS #3, LIBSSIGNAL ; 
04 BE 10 88 00448 60$: BISB2 #16, a4(SP) + 9676 
04 BE 0 88 O44F BISB2 #2, a4(SP) : 9677 
04 BE 04 88 00453 BISB2 #4. a4(SP) + 9678 
10 AG 2c AE BO 00457 MOVW  SUBVECTOR+4, 16(R6) + 9679 
12 Ab 0 AE BO 0045¢ MOVW § SUBVECTOR+8, 18(R6) : 9680 
04 BE 01 03 58 FO 00461 INSV RB, #3, #1, @4(SP) : 9681 
iF OA 01 90 00467 61$:  MOVB #1, 31(NODEPTR) : 968 
6 28 AE p60 0468 MOVL § SUBVECTOR, (NODESUBPTR) : 968 
O1A1 31 O46F BRW 85$ : 9500 
AG 9A 00472 62$:  MOVZBL 14(DSTPTR), STRIDE : 9699 
50 09 00476 MOVL STRIDE 24 (NODESUBPTR) : 9700 
01 C3 0047A SUBL3. #1, 10(DSTPTR), 32(NODESUBPTR) + 970 
50 ue 0480 MOVW STRIDE, 28(NODEPTR) : 970 
A2 9E 00484 MOVAB 24(NODEPTR), R1 : 9708 
50 D1 0488 CMPL STRIDE, #1 > 9704 
1 1g 04 BNEG  64$ : 
AE f 00480 BLBC SUBVECTOR+16, 63$ : 9706 
06 90 00491 MOVB #6, 2(R1) : 9708 
42 11 00498 BRB 71§ ; 
90 00497 63$ MOVB #2, 2(R1) : 9710 
C 11 00498 BRB : 9706 
0 D1 0049D 64$ CMPL STRIDE, #2 : 9711 | 
ke ig ra BBC ohsy CTOR+16, 65$ : 971 | 
; 5 04A6 MOVB * BERD ; ; ae 
3 $0 Socat 658: Rous oat 2c : 9717 
11 00480 BRas7'18 : 9713 | 
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04 50 p 4B2 66$: CMPL STRIDE, #4 
06 38 h rt Bec § Sy CTOR+16, 67$ 
02. Al 05 5 4B8 MOVB 38 BERD : 
18 11 004BF BRB 
02. Al 04 90 O4c 67$ OVE #4, 2(R1) 
06 38 AE £9 ace? 68$ BLBC  SUBVECTOR+16, 69$ 
02. Al 1 90 004¢B MOVE #1, 2(R1) 
4 11 OO4CF BRB 70$ 
02. Al 90 00401 698 MOVB #34, 2(R1) 
iC Ag AG 0403 0$ MULW2 #8, 28(NODEPTR) 
0 D1 00409 71$ CMPL  SUBSCR_COUNT, #5 
11 18 bo4n¢ GEG = 72$ 
05 0D O4DE PUSHL # 
01 DD 004E PUSHL #1 
00028EAO 8F DD O4Ee PUSHL #167584 
000000006 00 03 FB 004E CALLS #3, LIBSSIGNAL 
05 5 D1 OO4EF 72$: CMPL UBSCR_COUNT, #5 
11 15 004F2 BLEG 3$ 
05 DD 004F4 PUSHL #5 
01 DD OO4F6 PUSHL 
00028EB0 8F ODD OO4F PUSHL #167600 
000000006 00 03 FB OO4FE CALLS #3, LIBSSIGNAL 
40 6— €8 00505 73$:  BLBS  REF_FLAG, 77$ 
50 28 AE DO 00508 MOVL UBVECTOR, RO 
06 19 0050C¢ BLSS 
06 Ab 50 01 00508 CMPL RO, 6(DSTPTR) 
14 19 0051 BLSS © 75$ 
50 DD 00514 74$:  PUSHL RO 
06 A& DD 00516 PUSHL  6(DSTPTR) 
02 oD 00519 PUSHL 
00028078 8F DD 0051B PUSHL #163963 
000000006 00 04 FB 005 1 CALLS #4, LIBSSIGNAL 
50 2c AE DO 00528 75$: = MOVL UBVECTOR+4, RO 
06 19 0052¢ BLSS $ 
OA AG 50 D1 005 : CMPL RO, 10(DSTPTR) 
14 19 005 BLSS 77$ 
50 DD 00534 76$:  PUSHL RO 
OA A4 DD 005 6 PUSHL 10(DSTPTR) 
02 DD 00539 PUSHL 
00028078 8F OD 00538 PUSHL #163963 
000000006 00 04 FB 00541 CALLS #4, LIBSSIGNAL 
FFFF8000 &8F 30 AE Di 0948 77$: CPL BVECTOR+8, #-32768 
0A 19 0055 BLSS 
QOOO7FFF © &F 30 AE D1 0053¢ CMPL § SUBVECTOR+8, #32767 
12 15 0055A BLEG 79$ 
30 AE Dd 0055C 78$:  PUSHL SUBVECTOR+8 
01 DD 0055F PUSHL # 
000280F 0 BF DD 00561 PUSHL 4080 
000000006 00 3 FB 00567 CALLS #3, LIBSSIGNAL 
58 34 AF D 26 79$:  MOVL SUBVECTOR+12, RB 
11 18 005 BGEG 80$ 
58 DD 057 PUSHL R8 
oi DD 00 16 PUSHL #1 
Q0028EE8 8F DD 037 PUSHL #167656 
000000006 00 03 FB 0057E CALLS #3, LIBSSIGNAL 
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GPARSER 16*Sep-1984 02:10: AX=-11 Bliss-32 V4.0-74 Page 313) 
voe 12-86-1382 95:19:43 DEBUG. SRC SecPansén 03551 ° a 
20 58 D1 00585 80$:  CMPL 8, #32 : 9768 
11 if a3 8 BLE 1§ : 
34 AE 0 DO 0058A MOVL #3 SUBVECTOR+12 + 9771) 
00028073 8F DD 0058E PUSHL #1639 + 9772 
000000006 99 1 &F 0594 CALLS #1, LIBSSIGNAL ; | 
38 AE p 0598 81$: Ov : BVECTOR+16, R8 : 9775) 
01 38 D1 OA) CMPL ~=séRB,, #1 : | 
11 13 005A4 BEQL 4 ©=-_-B2$ : 
58 DD O56 PUSHL R + 9777) 
01 DD 005A PUSHL : 
00028140 BF DD DAA PUSHL | : 
000000006 00 3 FB 580 CALLS #3, LIBSSIGNAL : 
22 6f E8 00587 82$ BLBS §REF_FLAG, 8 : 9783 
1E 68 13 £1 O05BA BBC #197 (R11), 84$ + 9785 
SA DS O58 TSTL LOW RANGE. VAL + 9786 
06 19 005¢ BLSS $ : 
06 Ab A D1 005¢2 CMPL OW_RANGE_VAL, 6(DSTPTR) : 9787 | 
14 19 005¢6 BLSS 4$ : 
SA DD 005C8 83$:  PUSHL LOW _RANGE_VAL : 9790) 
06 AS DD OOSCA PUSHL 6(DSTPTR) : 
02 DD 005CD PUSHL #2 + 9789 | 
00028078 8F DD OO5CF PUSHL #163963 : 
000000006 00 04 FB 00505 CALLS #4, LIBSSIGNAL : 
04 BE 10 88 005DC 84$ BISB2 #16, a4(SP) + 9795 
04 BE 02 88 005E0 BISB2 #2, a4(SP) + 9796 
04 «BE 04 88 00564 BISB2 #4. a4(SP) + 9797 
10 A6 30 AE BO 005E8 OVW SUBVECTOR+8, 16(R6) : 9798 | 
12 A6 34 AE BO 005ED MOVW SUBVE CTOR+12 18(R6) > 9799 | 
04 BE 01 03 58 FO 005F2 INSV = RB, 4 (SP) : 9800 
w A 02 90 005F8 MOVB #2, 31(NODEPTR) : 9801 
6 28 AE 00 OOSFC MOVL SUBVECTOR, (NODESUBPTR) : 9802 
14 «AB 2C AE 00 00600 MOVL § SUBVECTOR+4, 20 (NODESUBPTR) + 9803 
2E 6B 13 E1 00605 BBC #19, (R11), 8 ; : 9808 
1c AS 2c AE DO 00609 MOVL § SUBVECTOR+4, : (NODESUBPTR) : 9811 
20 «AS 2C AE DO 0060 MOVL § SUBVECTOR+4. 32(NODESUBPTR) > 9812 | 
20 6B 13 £1 00613 85$: BBC #19, (R11), 87$ + 9830 
28 AE SA D1 0061 CMPL OW_RANGE_VAL, SUBVECTOR > 9833 
0d 15 0061B BLEG $ : 
00028F08 8F DD 90610 PUSHL #167688 : 
000000006 00 1 FB 0625 CALLS #1, LIBSSIGNAL ; 
63 A DO 0062A 86$:  MOVL § LOW_RANGE_VAL, (NODESUBPTR) > 9834 
08 A’ 5A DO 0062D MOVL § LOW"RANGE-VAL, 8(NODESUBPTR) > 9835 
oC «(AS 28 AE BO 006 1 MOVL § SUBVECTOR’ 12<NODESUBPTR) : 9836 
4 00636 RET : 9832. 
ve D4 00657 87$ CLRL = = (SP) > 9845 | 
24 A2 DD 00639 PUSHL  36(NODEPTR) + 9846 
02 Dp 065¢ PUSHL : 9845 
7E 06 D 0063E Ova #6, -(SP) : 
6 DD 00641 PUSHL : 
D2E6 CF 06 FB 00643 CALLS #6, DBGSBUILD_PRIMARY_SUBNODE ; | 
04 00648 RET > 9848 | 
3; Routine Size: 1609 bytes, Routine Base: DBGSCODE + 273E 
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3 of ; 2 49 ! ROUTINE GET_DEREFERENCE (PRIMPTR): NOVALUE = 

; 9755 9 i 1 ! FUNCTION 

; 97 § 9852 1! This routine is called upon seeing the dereference operator, e.g., 
3 $758 8827 : the * in a PASCAL primary such as A*. 

3; 9759 9855 1! If the object being dereferenced is a pointer or a file variable, then 
; 9760 3828 1! this routine Lights a bit in the current primary subnode which 
3; 9761 oRe 1} indicates that the dereference is taking place. It then calls 

3 Bree 9 23 , 3 DBGSBUILD_PRIMARY_SUBNODE to append a new subnode. The type 

; 976 9859 1! information in the new subnode reflects the fype of the object 
3; 9764 aneo 1! being pointed to; or in the case of file variables, the type 

3; 9765 9861 1! of the objects in the file. 

; 9766 9866 1! 

3; 9767 9865 1 ! INPUTS 

; 9768 9864 1! PRIMPTR - A pointer to the gay Poser totes currently 
; 9769 9865 1! being constructed by DBGSPRIMARY_PARSER. 

; 9770 2008 1! 

3; 9771 9867 1 ! OUTPUTS 

3; 977 9868 1! The Primary Descriptor pointed to by PRIMPTR is modified. 

; 977 9869 1! 

3; 9774 9870 BEGIN 

3; 9775 9871 

3; 9776 987 P 

3; 9777 987 PRIMPTR: REF DBGSPRIMARY; 

3; 9778 9874 

3; 9779 9875 LOCAL ; 

3; 9780 9876 FCODE, ' Local variable holding fcode info 
3; 9781 9877 JUNK ! Dummy output parameter 

: 978 9878 NODEPTR: REF DBGSPRIM_NODE, i Points to a Primary Sub-node 
3; 978 9879 TYPEID; ! Pointer to a RST type entry 

3; 9784 9880 

3; 9785 9881 DBGSGL_CURRENT_PRIMARY = .PRIMPTR; 

3; 9786 988 

3; 9787 988 . 

; ares Oane Check that the object being dereferenced is actually a pointer. 

3; 9790 9886 IF .PRIMPTRCDBG$B_DHDR_FCODE] NEQ RSTSK_TYPE_TPTR 

5 444 444 AND .PRIMPTRCLDBG$B_DHDR_FCODE] NEQ RSTSK_TYPE_FILE 

; 979 9889 SIGNAL (DBG$_NOTPTR) ; 

3 9794 9890 

3; 9795 9891 : 

; re 989 ! Obtain a pointer to the bottom Level sub-node by following the 

; 979 989 ! back-pointer. Light the EVAL bit in this subnode, 

3; 9798 9894 ! which indicates that pointer dereferencing is 

3; 9799 9895 ! taking place. 2 : 
3; 9800 989 ! Then, obtain the pointer to the RST type entry for the object being 
:; 9801 989 i dereferenced. 

: 980 9898 : 

3; 980 9899 NODEPTR = .PRIMPTR CDBGSL_PRIM BLINK]; 

3; 9804 9900 NODEPTR COBG$V_PNODE_ EVAL] = TRUE; 

; 9805 9901 TYPEID = .NODEPTR CDBG$L_PNODE_TYPEID); 

; 980 990 t ; 

; 9808 9904 ! From this typeid, get the typete for the object being pointed to. 
3; 9809 9905 ! For pointer variables, use the routine that extracts the typeid 


6 
vOs-000°" VS$eer198E QBE10:43  YAEGNE SLSSSSRE te OnZ4 Page 38) 


; 9810 990 ! of the pointed-to object. 

3; 9811 990 ! For file variables, use the routine that extracts the typeid of 
3 3818 4 ! objects in the file. 

; 43, 49 } Then obtain the fcode from the typeid. 

; HF p04 if y'P RIMPTRCOBGSS _DHOR _F CODE) EQL RSTSK_TYPE_TPTR 

; $817 a4 DBGSSTA_TYP_TYPEDPTR (.TYPEID, TYPEID) 

: 9819 9915 DBGSSTA_TYP_FILE (.TYPEID, JUNK, TYPEID); 

; 9820 3318 FCODE = DBGSSTA_TYPEFCODE (.TYPEID); 

3; 9821 991 

; 98 ; 04 

; 4 4494 } Append a new sub-node to the Primary Descriptor. . 

; 3858 9921 DBGSBUILD_PRIMARY_SUBNODE (.PRIMPTR, RSTSK_DATA, 0, .FCODE, .TYPEID, 0); 
3; 9826 99 ¢ RETURN; 

; 9827 4G 1 END; 


0004 00000 GET_DEREFERENCE: 
WORD 


Save R2 3; 9849 
5E 08 C2 0000 SUBL2 #8, S ; 
52 04 AC 00 0000 MOVL PRIMPTR, R2 > 9881. 
000000006 00 52 DO 00009 MOVL  §R2, DBG$GL_CURRENT_PRIMARY : | 
06 06 A2 91 00010 CMPB Ss «a (R2), #6 + 9886 
13 13 00014 BEQL ~=sés«sa$ : 
OF 06 A2 91 00016 CMPB ss @(R2), #15 + 9887 
0D 13 OOO1A BEQL ~=si'1$ ; 
000287FO 8F Dd O00IC PUSHL #165872 + 9889 
000000006 00 01 FB 90028 CALLS #1, L1BSSIGNAL : 
50 18 A2 00 00029 1$: MOVL 24(R2), NODEPTR : 9899 
0A AO 01 88 000¢0 BISB2 #1, 10(NODEPTR) : 9900 | 
6E 0c AO DO 00031 MOVL 12(NODEPTR), TYPEID : 9901 
06 06 A2 91 00035 CMPB ss (R2), #6 : 9911 | 
ge 12 00039 BNEQ 2$ : 
E DD 00038 PUSHL SP : 9913 | 
04 AE DD 0003D PUSHL TYPEID ; 
000000006 00 0 FB 69049 CALLS #2, DBGSSTA_TYP_TYPEDPTR ; 
F 11 00047 BRB 3$ ; 
5E bb 0049 2$ PUSHL SP + 9915 
08 AE 9F 00048 PUSHAB JUNK ; 
08 AE DD 0004E PUSHL TYPEID : 
000000006 00 03 FB 00051 CALLS #3, DBGSSTA_TYP_FILE ; 
E DD 00058 3$ PUSHL : 9916 
000000006 00 1 FB O005A CALLS #1, DBGSSTA_TYPEFCODE : 
E D4 00061 CLAL ss = (§P) : 9921 
04 Ar DD 0065 PUSHL TYPEID F 
5 bp 066 PUSHL  FCODE ; 
7E 06 D 0006 VQ #6, =(SP) ; 
DD 9 68 PUSHL R ; 
p273.—s CF 06 FB $0 CALLS #6, DBGSBUILD_PRIMARY_SUBNODE ; 
04 00072 RET + 9923. 
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; 3 ¢ ! ROUTINE GET_FIELDREF (TOKEN): NOVALUE = 

3; 9 9 § 1 ! FUNCTION 

3; 9 i! This routine picks up the position, size, and (optionally) the 

3; 9 99 8 1! extension in a field reference (i.e., XX<pos,size,ext>. 

3 38 ia 1! DBGSEXPRESSION_PARSER is called to parse and evaluate each of 

; 9835 99 ? 1} these values. The values are stored as integers in the 

; 4 44 : H Operator Lexical Token entry. 

3 38 8 99 : 1} This routine assumes that the opening angle bracket has already 

; 9839 9934 1! been found and that the parse pointer points to the start of 

3; 9840 9935 1! the first expression in the field reference. When this routine 

; 9841 oY 1! returns, the parse pointer is left at the first character after 

3; 9 ¢ 99 ,! the closing angle bracket. 

; 984 99 ; 1 ! 

; + ¢: 99 1 ! INPUTS 

3; 9845 9940 1! TOKEN = a pointer to the Operator Lexical Token entry for 

3 + 94] 9941 1! the ‘'<"* operator. 

; 9 9942 1! 

3; 9848 994 1 ! OUTPUTS 

3; 9849 9944 1! The Lexical Token pointed to by TOKEN is modified to inciude the 

; 9850 9945 1! offset, size, and sign extension information. 

; 9851 9946 1! 

; 985 9947 1 

; 985 44 | BEGIN 

3; 9854 994 

; 9855 9950 P 

: 9856 9951 TOKEN: REF TOKENSENTRY; ! Pointer to the Lexical Token Entry 
3; 9857 9326 ! for the field reference operator 
; 9858 995 

3; 9859 9954 LOCAL é 

3; 9860 9955 DECLTYPE: REF DBGSVALDESC, ! Pointer to Value Descriptor 

3; 9861 2328 ' for one of the values 

3; 986 995 } inside the angle brackets 

3; 986 9958 SAVED_RADIX, ! Temporarily saved expression radix 
; 44 4494 VALUE, Value of position, size, or sign ext 
e . e 

: eace 9961 VALPTR: REF DBGSVALDESC; ' Pointer to position, size, or 

; 986 996 : extension value descriptor. 
3; 9868 996 

3; 9869 9964 

; 9870 9965 

3; 9871 444 ! Loop through the expressions in this field reference. Each of these 

$ + 996 ! is parsed and evaluated via a call to DBGSEXPRESSION_PARSER. 

3; 987 996 ! This returns a descriptor, and the type converter is then called 

3 9874 298 ! to convert the descriptor into an integer value. 

3; 9875 9970 ! The integer value is checked for being in an appropriate range and 

3 + th 444 then stored in the appropriate own variable. 

3; 9878 997 INCR I FROM 1 TO 3 DO 

3; 9879 9974 BEGIN 

3; 9880 75 

3; 9881 7 

3; 988 997 ' Call the expression parser to pick up the next expression in the 
3; 988 997. ! field reference. Note that we set the radix to decimal over this 
; 9884 997 ! call and then restore it. Also note that the Expression Parser sets 
; 9885 9980 ! TERMINATOR_CODE and TERMINATOR_LENGTH as a side-effect. 
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VALUE = CONVERT_TO_INTEGER (.VALPTR); 
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; 9 ! 
39 $3 SAVED_RADIX = EXPRESS 10M RADIX; 

3 3 EXPRESSION RADIX = DBGSK_BECIMAL; 

; 9984 VALPTR = DBGSEXPRESSION PARSER(FALSE, BIT_SELECT_TERM_TBL); 

; 382 y : EXPRESSION_RADIX = .SAVED_RADIX; 

; 389 99 

; 9 36 99 ! Check the terminator code, If there was no terminator (i.e., the 

3; 9894 99 ! input Line Just ended), signal an error. Otherwise we got a comma 

; +344 a8 or closing angle bracket and we increment CHARPTR to get past it. 

; 3899 p44 if . TERMINATOR _CODE EQL_ TOKENSK_TERM_ NONE THEN SIGNAL (DBG$_MISCLOSUB); 

3; 989 999 CHARPTR = .CHARPTR + « TERMINATOR_LENGTH; 

: 3500 3998 

; 9903 644 : Convert the value descriptor to an integer. 

; 990 999 

‘OR, 

3 9906 10001 ! If we are looking at the ‘‘position’’ field, it can be any value that 
3; 9907 1000 ! fits in the PRIM_OFFSET field of the Primary Descriptor. We do not 
| 44 ' et allow any terminator other than comma in this case. 
; 9910 10005 IF! EQL 1 
i 9918 19009 4 BEGIN 
; 44 H+ 44 2 IF .VALUE LSS 2xX°0000' OR .VALUE GTR &X‘7FFF' 
; 9915 10010 4 SIGNAL (DBG$_ILLPOSFLD, 1, .VALUE); 
; 3919 10018 4 TOKEN. CTOKENSW_BIT_OFFSET) = .VALUE; 
; 444 | $F 2 IF s, TERMINATOR CODE EQL TOKENSK_TERM_GTRTHAN 
; 9920 10015 4 SIGNAL (DBG$_INVFLDREF); 
; 9921 13016 4 
3; 99 § 1 END; 
3950 10019 
; 9925 10020 ! If we are looking at the size field, the value must be in the 
3; 99 $ 10021 ' range 0 to 32 inclusive. Here we exit the loop normally on a 
5 4 + $ closing angle bracket, defaulting the sign extension to zero. 
3p BRR eat ™ 2 
> 9931 100 $ 4 BEGIN 
3 44.74 100 4 IF .VALUE LSS 0 OR .VALUE GTR 32 
3; 993 100 : 4 THEN 
3 44 ¢ 199 4 ? SIGNAL (DBGS_ILLSIZFLD, 1, .VALUE); 
: 99 1908) TOKEN CTOKENSW_BIT_LENGTH) = .VALUE; 
3; 993 100 § & IF . TERMINATOR CODE EQL TOKENSK_TERM_GTRTHAN THEN EXITLOOP; 
; +4 4 1 END; 
+ 3825 19088 
> 9941 1 $ ! If we are looking at the sign extension field then the value 
3 9942 1003 ! must be either 0 or 1. We also insist that the terminator must 


> a 


6 
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be the closing angle bracket in this case. 


Ww 


if -1 EQ 3 
HEN 


BEGIN 
IF .VALUE NEQ 0 AND .VALUE NEQ 1 


 $8te 19089 
; 9945 1 9 
3 § 1 
; 9308 i908 
> 994 10064 4 
3381 tg 4 SIGNAL (DBGS_ILLSIGEXT, 1, . VALUE); 
: 99 ; 190¢? TOKEN CTOKENSV_SGNEXT] = .VALUE; 
; 9998 : 4 4 s,TERMINATOR-CODE NEQ TOKENSK!TERM_GTRTHAN 
; 9933 20 4 SIGNAL (DBG$_INVFLDREF); 
; 3989 1 38 4 EXITLOOP; 
3 44 1 END; 
; 995 site: 
; 44 FF END; ! End of INCR loop 
i 9966 10087 
3 oer 443 | } ALL done. Return to the caller. 
> 9965 10060 RETURN; 
> 9966 10061 1 END; 
OOFC 00000 GET_FIELDREF: 
-WORD Save R2,R3,R4,R5,R6,R7 : 9926 
57 000000006 00 9€ 99002 MOVAB LIBSSIGNAL, R ; 
gg 00000000" FF Fp ARITE YAS FN MATOR cone, | 3 
54 D8 Ab 09 aoat$ 1$: MOVL §§ EXPRESSION_RADIX, SAVED_RADIX : 998 
D8 Ab OA DO 0001 MOVL #10, EXPRESSION_RADIX : 998 
00000000' EF 3 0018 PUSHAB BIT SELECT TERM_TBL ; 9986 | 
D706 cf ; FB 000 H CALLS 2, DBGSEXPRESSION_PARSER : 
5 D 00 MOVL RO, VALPTR _ : 
D8 Ab 4 DO 00028 MOVL SAVED RADIX, EXPRESSION_RADIX : 9985 
66 0 00 f TSTL TERMIRATOR, CODE : 9992 
9 12 00031 BNEG 2 ; 
00028690 &F DD 9 ; PUSHL #167568 ; 
67 1 : CALLS #1, LIBSSIGNAL ; 
FaCC «C6 04 Ag CO 0003C 2s: ADDL2 TERMINATOR_LENGTH, CHARPTR : 
55 DD 4s PUSHL VALPTR : 9998 
FOSA cf 1 F 4 CALLS #1, CONVERT_TO_INTEGER ; 
2 : 06 49 MOVL RO. VALUE ; | 
. RSet ‘Bowes 
0 ten 
QOOO7FFF BF 2 1 00055 CHPL = VALUE, #32767 
“ DD 0005E 38 PUSHL VALUE : 1001 
1 0D 000 USHL #1 : 


tly 


046 «BC 01 
FF34 53 
; Routine Size: 224 bytes, 


Be 13:17:40 


¢7 00028EC8 
04 
08 20 
OA 
? 00028F 00 
03 
20 
? 00028ED0 
0 04 
OA AO 
OA 
03 
01 
00028140 
67 
OA 
OA 
? 00028F 00 
01 


Routine Base: 
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NON -9O MOOS 9 90 9 “9 TO TOC 0 90 |] 9 90 T0000 "0 
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> SS SSSeseseee= 
Oo OwW"C > 


H 6 
16-Sep-1 
14-Sep-1 


www 


4$: 


w 
wn 


—— 
PM 


AX-11 BL Ai asezg v4.0- tif 
DEBUG. SRC JDBGPARSER .B32; 1 
et HehlOSSIGNAL 
VALUE; 8(RO) 
! RMINATOR CODE, #10 

167 
"i, pIBssi6NaL 

a 


VALUE 
YALUue. #32 
VALUE 


#167632 
a LIBSSIGNAL 


VALU E, 10(RO) 
TERMINATOR, CODE, #10 


1, #3 
1 


4160, 
tS, yf ls S1GNA 
#1 ‘i @TOKEN 
TERMINATOR: “CODE, #10 


#167680 
#1, LIBSSIGNAL 
#3, #1, 1, 18 


Se Se Se Se Ge Se Ge Se Ge Se Be Ge Se Se Be Se Se Se Fe Ge Se Ge Ge He Be Be Se Ge Be Ge Ge Se Se Ge Se Ge Ge Se Be Se 


1 
10 
1005 | 


1004 | 
9973 | 
1006 | 


<o 


| ‘ ; 
GPARSER 1b-sep-19 4 02:10: AX-11 Bliss-32 V4.0-74 Page 321 0 
yOe-000 1 =3007 1383 95:19:43 DEBUG. SRC IDBGPARSER .B3 37 . Rit \ 
2368 $¢ ROUT INE GET_RECORD_COMPONENT(PRIMPTR, COMPNAME): NOVALUE = 
$370 2 ' FUNCTION 
997 } This routine is called guring the parsing of ovreere Symbols to do 
me § : record component selection. It accepts as input a Primary Descriptor 
99 ! for a record and the name of a record component to be selected from 
9974 3 ; that record. It then checks that the or reery Descriptor is indeed 
9975 : for a record (otherwise component selection is not allowed and an 
eare y ; error is signalled). It then looks up the component name in the 
997 7 ; RST and gets the SYMID for the sgectt ed component of the specified 
997 Ore ! record. If no such component exists for this record, an error is 
997 8 7 } signalled. uanet hy this compqnent SYMID is converted to a record 
9980 74 ! component index which is stored in the Record Sub-Node in the Primary 
9981 8 75 : Descriptor and another Sub-Node is appended for the record component 
998 pre ! itself. The output of the routine is thus the side-effect of modi- 
4+, ofA fying the input Primary Descriptor. 
9985 0079 i INPUTS 
9986 0080 ! PRIMPTR = A pointer to the Primary Descriptor for the record on which 
a4 44 4 component selection is to be done. 
9989 $088 : COMPNAME = A pointer to the name of the record component to be 
p44 Boge selected. The name must be in Counted ASCII format. 
999 Boas ' OUTPUTS 
008 : The PRIMPTR Primary Descriptor is modified by filling in the record 
0088 : component index for the selected component and by appending 
0089 ! another Primary Descriptor Sub-Node for the component. The 
Beae } PRIMPTR pointer itself is not modified, however. 


BEGIN 


P 
PRIMPTR: REF DBGSPRIMARY; 


LOCAL 
COMP_LIST: REF VECTORCI, 


COMP_LIST_SIZE, 
COMPSYMID? REF RSTSENTRY, 
EXACT_MATCH, 


NODEPTR: REF DBGSPRIM_NODE, 


Pointer to Primary Descriptor 
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PRIPIPIPDMPYIPINIMNIPIPIPINYIAINIAPINIMAPIPI|I\PINIAIIAIY a nt a tn nt kk ak td td td ot ot 


List of potential 
component symids 
Lengsh of COMP_LIST 
SYMID for current record component 
Flag saying we've found the record component 
The FCODE of the record component 
Pointer to Record qua-nece n the 
Primary Descr peor 
Status returned by SET_RECORD_VARIANT 
The SYMID of the record component 
Pointer to List of record component 
SYMIDs in record Type RST Entry 
The Type 1D of the record record type 
_ or of the record component 
Pointer to current RST Variant Entry 
Pointer to Variant Set RST Entry 


Sesesescecesecsae 


STATUS, 
SYMID: REF RSTSENTRY 
TYPCOMPLST: REF VECTORC,LONG), 


TYPEID: REF RSTSENTRY, 


VARPTR: REF RSTSVAR_ENTRY, 
VARSETPTR: REF RSTSENTRY; 


DBGS$GL_CURRENT_PRIMARY = .PRIMPTR; 
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! Check that the Primary Descriptor is for a record--otherwise record 
component selection is not allowed. 


NODEPTR = .PRIMPTRCDBGSL ~PRIM_BLINKI; 
IF ENFORCE RECORD 


BEGIN 


DONAW 
“os 


We wr 


r ADA, the pointer dereference is implicit. That is, if 
k Ae a@ pointer then PTR.C is equivalent to PASCAL's 
a EQL DBGSK_ADA 
BEGIN 


! First check for the special case ‘'.ALL"’, which 
means pointer dereference. 


ir CHSEQL(4, .COMPNAME 
4, UPLIT BYTE (3, "A", "L', "L')D 


POSS See Pec C COSCO CSCS S ESS 


OONAVEL WN OC OONOULWNOO0@ 


BEGIN 
GET _DEREFERENCE(.PRIMPTR); 
RETORN; 
Now do implicit dereference of the pointer. 
WHILE Paine teconese.. pon FCODE] EQL RSTSK_TYPE_TPTR DO 


REFERENCE ( MPTR); 
thie = .PRIMPTR DaGSL _PRIM. BLINK; 


sssseseess 


IF _<PRIMPTREDBGSB_DHDR_FCODE] NEQ RSTSK_TYPE_RECORD 
SIGNAL (DBG$_NOTRECORD, 1, .COMPNAME); 

IF _.NODEPTRCDBGSB_PNODE_FCODE] NEQ RSTSK_TYPE_RECORD 

yp 22BG-ERROR(*DBGPARSER\GET RECORD_COMPONENT 10°); 


Segeserers 


or og on anise allow non-records to be com engntscotested 
»), we do not do the above chack e. fest. 
: 070) tei ry Ae the FCODE to say “‘record’ 
5 rerocessed as a record by on inek = DBGVALUES 
— in DBGPRINT. 
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rc 
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SE 
NODEPTRCDBG$B_PNODE _FCODE] = RSTSK_TYPE_RECORD; 
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! Search the RST Hash Table for all record components of this name. 
! If we find one which belongs to the given record, then Light the 


S 


f 


16-Sep-1984 96:19:43 AX-11 Bliss-32 oF af Poge 2 5 


14-Sep-1 DEBUG. SRC JDBGPARSER.B 
31 1 176 ! EXACT_MATCH flag and exit the loop. If we find one but it belongs 
31 1 if ! to the wrong record, we save its SYMID anyway - some Languages 
31 101 8 ! allow this. If we find more than one but ney alt belong to the 
i 5 : if wrong record, then Light DUPLICATE_FLAG = this will be an error. 
1 101 TYPLID = .NODEPTRCDBGSL_PNODE_TYPEIDI; 
31 101 ¢ SYMID = 0; 
31 101 EXACT_MATCH = FALSE; 
3 1R0a0 101 COMP_CIST_SIZE = 10; 
31 1 10185 COMP_LIST = DBGSGET_TEMPMEM(.COMP_LIST_SIZE); 
31 101 § COMP_LISTCO] = 0; 
31 101 DBGSAASH FIND_SETUP(.COMPNAME) ; 
31 10168 WHILE TROE DO 
31 5 10189 BEGIN 
$1096 10190 SYMID = porns FIND(.COMPNAME); 
31009 10191 if ~SYMID EQL 0 THEN EXITLOOP; 
3 10098 ' 19¢ If, SYMIDCRSTSB_KINDJ EQL RST$K_TYPCOMP 
:10100 10194 & BEGIN 
310101 10195 4 IF .SYMIDCRSTSL_UPSCOPEPTR] EQL .TYPEID 
310108 Ds 4 THEN 
£10104 10198 a 
[10105 10199 
310108 10200 ! This is the case where we find a component with the right 
31810 gst name belonging to the right record. 
310109 10 08 EXACT_MATCH = TRUE; 
310110 10204 EXITLOOP; 
att + 05 
10113 10509 ELSE 
710714 10 08 N 
aot? + % COMP_LISTCO] = .COMP_LISTCO] + 1; 
O17 \} 1} If we overflow the component List then expand it. 
10119 10 ig if .COMP_LISTCO] GEQ .COMP_LIST_SIZE 
10151 19518 6 THEN BEGIN 
3101 10216 6 LOCAL 
313 5 19 13 6 SAVE_COMP_LIST; 
710126 10 18 6 SAVE_COMP_LIST = .COMP_LIST; 
210125 8 19 6 COMP"LIST = DBGSGET TEMPMEM(.COMP_LIST_SIZE+10); 
$10126 10220 6 CHSMOVE (4*.COMP_LIST SIZE, .SAVE_COMP_CIST, .COMP_LIST); 
3101 H+ 1 COMP_LIST_SIZE = ~COMP_LIST. SIZE + 10; 
310128 1 § END; 
310129 1 COMP_LISTC.COMP_LISTCOJ] = .SYMID; 
3101 10224 4 END; 
310131 1 5 END; 
i : § ' : END; 
3101 1 
310135 1 $ ! Signat errors for the cases where a record component was not found, 
i 139 10 ! or where the reference is ambiguous. 
101 10232 if NOT .EXACT_MATCH 
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EN 
Fel One ECONO AND NOT . INCOMPLETE _QUAL 


2 ¥3 0-736 
PARSER .B32;1 


TH 


! We did not find a component in the right record, and this 
! Language is strict about membership checking. So signal 
an érror. 

SIGNAL (DBG$_NOFIELD, 1, .COMPNAME) 


ELSE 
IF .COMP_LISTCO) EQL 0 
THEN 


We did not find any components at all. Signal an error. 
SIGNAL (DBG$_NOFIELD, 1, .COMPNAME) 

ELSE 

! Call a routine which attempts to resolve amiguities. 

! If it fails, it will return false and we signal an 

! error saying that the record reference was ambiguous. 


iF NOT RESOLVE_COMPONENT(.TYPEID, .COMP_LIST 
;PRIMPTR, . COMPNAME 5 


THEN 
SIGNAL (DBG$_AMBFIELD, 1, .COMPNAME); 


SYMID, 


! Set the EVAL bit in the Record Sub-Node to indicate that a record com- 
ponent has actually been selected. 


NODEPTR = .PRIMPTRCDBGSL_PRIM BLINK); 
NODEPTRCDBGS$V_PNODE_EVAL] = TRUE; 


! We have found a Type Component SYMID for a component of the current 

' record data type. Now convert that SYMID to a record component index 

! into the component vector for the record type. We do this by searching 
H the component List in the record type's Type RST Entry. 


TYPCOMPLST = TYPEIDCRSTSA_TYPCOMPLST): 
INCR I FROM 0 TO . TYPE LDCRSTSL_TYPCOMPCNT J - 100 


BEGIN 

COMPSYMID = .TYPCOMPLSTC.1); 

f this component is the one we seek, set its index into the Record 
ub-Node and leave the loop. 

,Svalo EQL .COMPSYMID 


ne 


BEGIN 
NODEPTREDBG$SW_PNREC_INDEX) = .1 + 1; 


mm 

>) 
— 
oz 
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DEBUG. SRC JDBGPARSER.B32;1 
3101 1 EXITLOOP; 
Ae : 3 END; 
3101 1029 | 
31 4 10294 ! If this record component is a Variant Set, see if the desired 
#1? 4 : 32 component is part of one of the variants in this Variant Set. 
i19 § 10599 iF .COMPSYMIDCRSTSB_KIND] EQL RSTSK_VARIANT | 
31 1 38 THEN 
310205 10299 4 BEGIN 
310 5] 1 BY 4 VARSTK_INDEX = 0; 
18 1 1 4 STATUS = GET_RECORD_VARIANT(.COMPSYMID, -SYMID); 
£10509 10808 ina | 
Be sr 
71021 1030 
310 ig 19809 ! We found the record component in the current Variant Set. 
310214 10308 ' Set the index of the Variant Set in the Record Sub-Node. 
310215 10309 5 ! Then build all necessary Primary Descriptor Variant Sub- 
13 18 IRS : } Nodes, one for each level of variant nesting. 
10518 10312 : NODEPTRCDBGSW_PNREC_INDEX] = .I + 1; 
310219 1031 5 INCR J FROM O-TO .VARSTK_INDEX - 1 60 | 
310 50 10314 6 BEGIN 
310221 10315 6 DBGSBUILD_PRIMARY_SUBNODE(.PRIMPTR, RSTSK_VARIANT, 
310 3¢ 10316 6 0, RST$K_TYPE-VARIANT, 0, 0); 
310 1031 6 VARSETPTR = .VARSTACKIC.JJ; 
310224 isei8 6 VARPTR = Bt 3 
310225 10319 6 NODEPTR = .PRIMPTRLDBGSL_PRIM_BLINK]; 
310226 10320 6 NODEPTR(D V_PNODE_EVA = . 
310227 10321 6 NODEPTRCDBGSL-PNVAR-TAGID] = -VARSETPTRERSTSL_VARTAGPTRI; 
310228 19358 6 NODEPTRLDBG$W_PNVAR_INDEX] = .VARSTACK3C.JJ; 
310209 10323 6 NODEPTREDBGS$W-PNVAR-NCOMPS]_ = .VARPTR RSTSL_VAR_COMPCNT]: 
3102 10324 6 NODEPTRCDBGSL_PNVAR_COMPLST] = VARPTRERSTSA_VAR_COMPLSTJ; 
:1038¢ 193S2 6 = DBGSL_PNVAR_DSTPTR] = .VARPTRCRSTSL_VAR_DSTPTRI; 
ieess 18? 7 
£108 5 10329 5 ! The Variant Sub-Nodes have successfully been constructed. 
310 10330 5 ! Now exit the search of the record component List so that 
ay st + =) ; } we can build the Sub-Node for the component actually found. 
figs as ExITLO0P; 
$1084 103 5 4 , 
310 4g 10 § END; ! End of variant code 
31024 103 
310244 103 3 END; ! End of loop over record components 
£195¢e 10820 
710 “3 10341 ! Finally append another Primary Descriptor Sub-Node for the selected 
19 28 ! ri} } record component. Then return. 
31 50 10344 DBGSSTA_SYMTYPE(.SYMID, FCODE TYPEID); 
310251 10345 DBGSBUICD_PRIMARY_SUBNODE (.PRIMPTR 
310252 10346 RSTS$K_fYPCOMP, ~SYMID, .FCODE, .TYPEID, 0); 
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-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


03 03372 P.AYJ: .BYTE 3 
41 337 SASCII \A\ 
4C 74 “ASCII \L\ 
4C 3379 “ASCII \L\ 
5 $4 45 47 5 52 45 53 52 41 50 47 42 44 et 3376 P.AYK: ASCII \!DBGPARSER\<92>\GET_RECORD_COMPONENT 10\ 
30 31 20 54 03394 
»PSECT DBGSCODE,NOWRT, SHR, PIC,O 
F T_RECORD_COMPONENT: 
re qoeen fesee RP ORD 4 R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
SE 10 ¢2 00002 §UBL2 #16, SP 
aooooooas $f 8 BR BARNET Praca 8c unnent paanan 
57 18 AA 00 00010 MOVL 24(R10), NODEPTR ~ 
63 00000000" EF £9 00014 BLBC ENFORCE RECORD, 5$ 
09 000000006 00 9 00018 CMB DBGSGB_CANGUAGE. “9 
00000000" EF 08 BC p| 00084 CMPL ACOMPNAME , P.AYJ 
5A 0D 0002E PUSHL R10 
FE78 «CF 01 FB 000 : CALLS #1, GET_DEREFERENCE 
06 06 AA 91 000 6 1$: CMPB = (R10), #6 
09 12 O003A BNEQ 2$ 
5A 0D 9005¢ PUSHL R10 
FE6A CF 01 FB 00055 CALLS , GET_DEREF ERENCE 
57 18 AA 00 00045 28 MOVL  24(R10), NODEPTR 
07 06 AA 91 00049 3$ CMPB 3=s-s«@ (R10), #7 
12 13 00040 BEQL 4$ 
08 AC DD 0004F PUSHL  COMPNAME 
Oi DD 90052 PUSHL #1 
000000006 00 seunmnahen 08 Pe En CALS $8. ASSSIGNA 
07 09 A? of 60081 4$: CMPB =: 9CNODEPTR), + 
1B 13 00065 BEQL «6$ 
qoeeeeee” © Ot tone th tlt abl 
00028362 8F DD bose PUSHL #164706 
000000006 00 ; FB 0075 CALLS #3. LIBSSIGNAL 
09 A? $3 90 07 5$: MOVB #7, +9(NODEPTR) 
08 AE oc A? p Ns 6S: MOVL 12¢NODEPTR), TYPEID 
6— 7C 000 CLRQ EXACT_MATCH 
56 OA D0 00089 MOVL #10, COMP_LIST_SIZE 
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3 ROUTINE GET_RECORD_VARIANT(VARSETPTR, SYMID) = 
: FUNCTION 


This routine looks for ’ record component with a known SYMID among all 
the variants in a specified Variant Set. It returns TRUE if the compo- 


ozs 


nent is found in that Var om ese and as a side-effect, it also builds 


PAD AAMT 


& 


' 
! 
' 
} T entry 
VARPTR: REF RSTSVAR_ENTRY, ' Pointer to current RST Variant Entry 
! Pointer to vector of variant in the 
: Variant Set RST entry 
! Status returned by recursive call 


VARSETTBL: REF VECTORC,LONG), 
STATUS; 


sss 
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! Push the address of the current Variant Set RST Entry on the Variant 
' Stack maintained by this routine and GET_RECORD_COMPONENT. This is 
how we keep track of nested Variant Sets in the record. 


IF .VARSTK_INDEX GEQ VARSTK SIZE THEN SIGNAL (DBGS_VARNESDEP) ; 
VARSTK INpeX = ,VARSTK INDER + 1; 
VARSTACKIC.VARSTK_INDER = 1] = .VARSETPTR; 
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} 
i 
i 
i 
: a ‘Variant Stack’ which specifies which sequence of yer ants and Vari- 
64 : ant Sets contain the component. This rout ng calls itself recursively 
65 ! to search variants within variants; the ‘Variant Stack’’ records the 
28 0 : per° taken through the tree of variants to reach the desired component. 
6 0 ; his stack is then used by GET_RECORD_COMPONENT to build the Primary 
$8 0 } Descriptor Variant Sub-Nodes needed to describe that path. 
8 ' INPUTS 
71 0 : VARSETPTR = Pointer to the Variant Set to be searched for the SYMID 
Ie 8 } record component. 
74 036 : SYMID = The SYMID (RST Entry address) of the record component to 
154 036 ! search for among the variants of the current Variant Set. 
6 036 ! (This SYMID has been found by looking up the record compo- 
7 037 ! nent by its name.) 
78 037 ! 
79 bee ' OUTPUTS 
80 037 ! If the SYMID record component is found in any of the VARSETPTR variants, 
281 037 ! his routine returns TRUE as its value. If the SYMID compo- 
oee 037 ! nent is not found, it returns FALSE. If TRUE is returned, 
8 037 ! the Variant Stack (in OWN storage) contains the List of Vari- 
see bee ant Sets and variants which contain the SYMID component. 
SB 037 
287 038 BEGIN 
288 038 
289 038 P ; 
34 S44 VARSETPTR: REF RSTSENTRY; ! Pointer to Variant Set RST Entry 
234 038 LOCAL 
29 038 COMPLST: REF VECTORC,LONG), ! Pointer to vector of component RST 
94 038 ! pointers in RST Variant Entry 
95 bee COMPPTR: REF RSTSENTRY, ' Pointer to current variant component's 
0390 
344 
$39 
039 
039 
bee 
639 
039 
0 
0. 
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! Loop through all the variants in this Variant Set. For each variant in 
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! the set, search its components until we find the SYMID component, i.e 
the record component we are looking for. 


VARSETTBL = VARSETPTRCRSTSA_VARSETTBLI; 
INCR | FROM TO .VARSETPTRERSTSL_VARSETCNT] = 1 DO 


BEG 
VARPTR = ,VARSETTBLC.1); 
VARSTACK2L.VARSTK_INDEX = 1] = .VARPTR; 
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Loop over the record components in this particular variant. If the 
SYMID component is found, we return TRUE and leave the Variant Stack 
with its gurrent contents. If we find another Variant Set component 
within this variant (i.e., nested variants within the record), this 
routine calls itself regucetyety to look for the SYMID component in 
that nested variant. If it is found there, TRUE is returned. 


COMPLST = VARPTRCRSTSA_VAR_COMPLST); 
INCR J FROM 0 TO .VARPTRCRSTSL_VAR_COMPCNT) - 1 DO 


N 
COMPPTR = .COMPLSTC.J]; 
VARSTACK3C.VARSTK_INDEX = 1 
IF .COMPPTR EQL .SYMID THEN 
ae etal attics anita EQL 
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38 of © V3 
RETURN TRUE; 
RSTSK_VARIANT 


WAAAY 


BEGIN 
STATUS = GET RECORD VARIANT(.COMPPTR, .SYMID); 
IF .STATUS TREN RETORN TRUE; 
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0338 

0339 

0340 

0341 

tk} END; 

034 

Bee END; ! End of loop over variant components 
D346 END; ! End of loop over Variant Set 

O8cb 

0349 ! We did not find the SYMID component pryviore among the variants in this 
Bees } Variant Set. We thus pop the Variant Stack and return FALSE. 

0358 VARSTK_INDEX = .VARSTK_INDEX - 1; 

035 RETURN FALSE; 

0354 

0355 04 END; 
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7 Save R2,R3,R4,R5,R6,R7,R8B,RI ; 1035 
59 00000000' EF oF 9002 MOVAB VARSTK_INDEX, RO 
14 ° D1 009 CML VARSTK_INDEX, #20 : 1040 
00028A52 BF DD 0000E PUSHL #166450 3 
000000006 00 1 F 1 CALLS #1, LIBSSIGNAL ; 
69 D 1B 1$: INCL VARSTK_INDEX ; 1040 
50 69 D 19 MOVL § VARSTK“INDEX, RO : 1040 
04 AC 00 0002 MOVL § VARSETPTR, R? ; 
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Routine Base: DBGSCODE + 30E1 
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Routine Size: 
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3 10449 ! ROUTINE GET_SET_CONSTANT = 

31 } 4 1 ' FUNCTION 

31 1 1 : This routine picks up set constants. It calls DBGSEXPRESSION_PARSER 

31 1 1 : to parse and evaluate each set constants expression. It also checks 
310 10454 1 : the data type of each set constants and converts it to the appropriate 
18 : ? 5 : } data type of the first set constant as necessary. 

19 104 ; 1 ; This routine assumes that the opening set parenthesis has 

3710 1 23 1 ! already been found and that the parse pointer points to the start 

310 10459 1 ! of the first set constant eugene ion. When this routine returns, 

1? 1 260 1 : the perse pointer is left pointing at the first character after 

313 ; ° : the closing set parenthesis. 

310 19468 1 ' INPUTS 

3710 10464 1 ! None. 

310 10465 1 ! 
310 rb | 1 ' OUTPUTS 
310 10467 1 : Pointer to set constant value descriptor. 
2138 10468 1 ! 
310 rg 1 

193 10470 BEGIN 

310 10471 

3103 ok LOCAL 

3103 1047 CREATE, ! Flag set to true to create set 

3103 10474 ! constant value descriptor 

3103 10475 LOW RANGE VAL, ! Low value of a subscript range | 

310 10678 SAVED_RADIX, ' Temporaril seyed expression radix 
310385 1047 SETVAC: REF BITVECTORC) ' A vector of 256 bits 

i 10386 10478 SETVALPTR: REF DBGSVALDESC, i Pointer to Value Descriptor for 
310387 1047 ! declared subscript data type 
310388 10480 THIS_SUBSCR_IS_RANGE, ! Flag set if the current subscript is 
310389 10481 ' given as a subscript range 
310390 Hk 14 TYPEID: REF RSTSENTRY, ! Pointer to RST entry 

310391 1048 VALADDR: REF VECTORC,LONG), ! Pointer to integer subscript value 
310336 Hr VALPTR: REF DBGSVALDESC; ! Pointer to subscript Value Descriptor 
10304 ens 

310395 + 

310398 10488 ! Check for Empty Set ; Create a value descriptor for it, mark ‘FFFF’ 
371039 10489 ! in class and dtype fields to indicate this is (J, so DBGSEVAL_LANG_OPERATOR 
310398 10490 ' can play with it. 

‘19400 10693 if .CHARPTRCO) EOL "2° 

‘10c04 19098 THEN 

3 1s 10494 BEGIN 

31040 H+ 98 SETVALPTR = DBGSMAKE_SKELETON DESC (DBGS$K_VALUE _DESC, 84); 

710404 } SETVALPTRCDBG$B_DHDR-LANG) = 2Xx'FF‘; 

310405 1049 SETVALPTREDBG$B_DHDR-KIND) = RSTSK DATA 

3 1pene 10498 SETVALPTRLDBG$B_DHOR-FCODE) = RSTSR_TYP seri 

31040 10499 SETVALPTRCDBGS$L_VALUE_POINTER] = SETVALPTR DBGSA_VALUE_ADDRESS); 

3 R008 10500 SETVALPTRUDBG$B_VALUE_CLASS] = 2x'FF‘; 

3 1pee 10501 SETVALPTRULDBGSB_VALUE_DIYPE] = Zx'FF’; 

310410 1 206 SETVALPTRLDBG$W VALUE LENGTH) = 32; 

310411 1 23 CHARPTR = .CHARPTR ¢ T; 

410618 10504 RETURN .SETVALPTR; 

31041 10505 END; 
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ocang IERSISM WBNS SELMA, Mo 


Loop through the set constant expressions for this set constant. Each 
set constant is parsed, evaluated, and converted to the appropriate type 
of the first set constant (with the type being checked in the process). 
Note that Hh gal CODE is set within the loop as a side-effect of the 
call on DBGSEXPRESSION_PARSER. 


EATE = 
SUB 


et ed ce ld 
SOU 


RUE; 

R_I§$_RANGE = FALSE; 

CODE = TOKENSK TERM COMMA; 
MINATOR_CODE NEG TOKENSK_TERM_CLOSE DO 


, eee 
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Call the expression parser to pick up the next set constant expression 

and its value. Note that we set the radix to decimal over this call 
and then restore it. Also note that the Expression Parser sets 

} TERMINATOR_CODE and TERMINATOR_LENGTH as a side-effect. 


SAVED_RADIX = .EXPRESSION RADIX; 
EXPRESSION RADIX = DBGSK DECIMAL; 
VALPTR = DBGSEXPRESSION PARSER (FALSE, SET_CONSTANT_TERM_TBL); 
EXPRESSION_RADIX = .SAVED_RADIX; 


Check the terminator code. If there was no terminator (the input 
Line just ended), signal an error. Otherwise we got a comma or clos- 
ing subscript parenthesis and we increment CHARPTR to get past it. 


1 
i 
i 
' | 
if . TERMINATOR CODE EQL TOKENSK _TERM_NONE THEN SIGNAL (DBG$_MISCLOSUB) ; 
CHARPTR = .CHARPTR + , TERMINATOR_LENGTH; 
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' Create a set constant value descriptor. Its type is the type of 
the first set constant data type. 


if . CREATE 
THEN 


SC(DBGSK_VALUE_DESC, 8*4); | 
G$GB_LANGUAGE ; 
$k DATA; 

1SR_TYPE_SET; 
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Vv LUE 
ETVALPTREDBGSL~ VALUE POINTER] = SETVALPTRCDBGSA_VALUE_ADDRESS); 
ETVAL = .SETVACPTRCOBGSL_ VALUE +} ee 


E 
ERSTS«,TyPE_ATOMIC, RSTSK_TYPE_DESCR): 


SETVALPTRCDBGSL_DHDR TYPEID] = DBGSTYPEID FOR SET( 
.VALPTRCDBGSB_VACUE_DTYPE], RSTSK_TYPE_SET, 256, TRUE); 


CRSTSK_TYPE_ENUM): 
BEGIN 
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° . 
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4 . 
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310471 10563 TYPEID = VAL PTAC DOGS), DHDR ree 102; 3 
31 te 1 rf: SETVALPTREDEGSL DHDR_TYPEID] = DBG TYPEID_FOR SET( 3 
31047 1 -TYPEIDCRSTSL_DSTPTRJ, RSTSK_TYPE_SET, 256); $ 
eyocrs 10867 ' ; 
31 i: 1 seb 4 COTHERWISE): ; 
31047 1 $ 4 SIGNAL (DBGS_ILLTYPE); 3 
31 4 105 » 4 3 
2 7 ' rf ? TES; : 
He Hf 4 CREATE = FALSE; ; 
31048 10575 - ; 
BY tr 1 278 3 
310485 1057 ' Check that the type of the set item is consistent with the 3 
5 12038 1 278 ' type of the set as a whole. 3 
31048 1057 ! $ 
3710488 10580 IF NOT DBGSPERFORM_TYPEID_ CHECK (ORTSK_TYPEID_SET_SET, 3 
#19690 + 1 omen -VALPTR, .SETVALPTR) : 
£10491 10368 SIGNAL (DBG$_ILLSETCON); | 3 
10098 10585 VALADDR = .VALPTRCDBGSL_VALUE_POINTER); | 3 
RES | 
310496 HF : If the terminator at the end of this set constant expression was a dot ; 
31049 10589 ! we have a subrange (for example, ‘(1..5, 8)°'). We thus set F 
310498 10590 ! the subrange-range flag and save the low value of the range, i.e. 3 
3 1969) aes the value we just picked up. ; 
10801 19898 iF .TERMINATOR_CODE EQL TOKENSK_TERM_DOT 3 
3 10306 10594 THEN 3 
31050 10595 4 BEG] 3 
310504 19398 4 IF THIS SUBSCR_IS_RANGE THEN SIGNAL (DBG$_INVRANSPEC); 3 
310505 10597 4 THIS SUBSCR_IS_RANGE = TRUE; 3 
310506 10598 4 LOW_RANGE_VAL = .VALADDR(O); 3 
310507 10599 4 D 3 
£10809 10601 
7105 0 19006 4 ! The terminator was not a dot, so we now have the full set constant : 
#1081¢ Hee ? specification. : 
1051 10605 3 ELSE ; 
19318 19606 4 BEGIN 3 
310515 10607 4 3 
31051 10608 4 3 
10819 10609 4 ! If this set constant is specified as a subrange. check that 3 
310518 10610 4 ! the first value in the range is not greater than the second. 3 
31031) 13 : } Also clear the subscript-is-range flag for the next subscript. : 
£108 1 ei8 4 if; THIS_SUBSCR_1S_RANGE ; 
3105 : 10613 3 EGIN ; 
310524 1 18 IF LOW RANGE VAL GTR .VALADDRCLO) THEN SIGNAL (DBGS_INVRANSPEC); : 
193 5 1061 THIS_SUBSCR_IS_RANGE = FALSE; 3 
3105 § 10618 END 3 
3105 10619 3 
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31 1 

3} ! ; } Otherwise, set the low range value to be the set constant value. 
31 1 4 LSE 

i ! 4 4 LOW_RANGE_VAL = .VALADDR(OJ; 

31 106 ND; 

; Hee . 

#198 : ; Set the set value. 

£10 33 196 iF .LOW_RANGE_VAL LSS 0 OR .LOW_RANGE_VAL GTR 256 

£10541 1063 SIGNAL (DBG$_B1TRANGE) ; 

£10848 196 5 IF .VALADDRLOJ LSS 0 OR .VALADDRCO] GTR 256 

:10545 196 ; SIGNAL (DBG$_B1TRANGE) ; 

10809 106 § INCR J FROM -LOW.RANGE VAL TO .VALADDRCOJ DO 

£1bec8 pee) END sar Aans © VOU ! End of WHILE | t tant 
. P : r 

:10550 19648 0 oop over set constants 
31055¢ 10644 ! We have picked up all the set constants within this set parentheses. 
10387 ee? Set Constant Value Descriptor is created. 

310555 10849 RETURN .SETVALPTR; 

310556 10648 

sR 09250 waned oP ae 

: Referenced LOCAL symbol LOW_RANGE_VAL is probably not initialized 


OFFC 00000 GET_SET_CONSTANT: 
WORD 


: Save R2,R3.R4,R5,R6,R7.R8,R9,R10,R11 > 1044. 
5D  8F 00000000' rf 1 9002 cMPB aCHARPTR, 493 > 1049. 
0 pp 900¢ PUSHL #32 > 1049. 
7E 7A BF 9A 0000 MOVZBL #122, -(SP) ; 
000000006 Q 3 FB 01 CALLS #2, OBGSMAKE_SKELETON_DESC : 

p 01 MOVL RO, SETVALPTR : | 

03 A 1 é 1 MNEGR #1. 3(SETVALPTR) + 1049 
06 A 060 F MOVW #1544, 6(SETVALPTR) + 1049 | 
18 OA A2 6 MOVAB 32(Re) 24(SETVALPTR) > 1049 | 
14 Ad FFFFOO BF D MOVL &#-65504, 20(SETVALPTR) : 1050. 
00000000" EF B6 INCL CHARPTR > 1050 | 
0181 1$: BRW $ : 1050 | 
59 1 60 c 2$: MOVL #1, CREATE > 1051. 
8 D4 CLRL ‘THES _SUBSCR_1S_RANGE > 1051, 
00000000' Fe 1 D0 41 MOVL #1, TERMINATOR™COD > 1051 | 
2 00000000" ce p 4g 38: CPL TERMINATOR_CODE, # ; 1051 | 
6 D MOVL § EXPRESSION_RADIX, SAVED_RADIX ; | 

5B 00000000" EF 3 0051 1052 


—————— 


Kk 7 
GPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 
itd 12-$60-138¢ 95:19:43 DEBUG. SRC Seabancin.o35s1 
00000000" EF OA 00 8 MOVL #10, EXPRESSION RADIX 
00000000' cr oF 5 PUSHAB SEI CONSTANT_TERM_TBL 
D42A cf ; F 67 CALLS #2, DBGSEXPRESSION_PARSER 
3 DO 0006C MOVL RO. VALPTR 
00000000' EF B D O06 MOVL § SAVED RADIX, EXPRESSION_RADIX 
00000000° éF t 4 TSTL  TERMIRATOR_CODE 
D 007C BNEG = 4$ 
00028690 8F DD O007E PUSHL 68 
000000006 1 FB 00084 CALLS #1, LIBSSIGNAL 
00000000' EF 00000000" EF CO 00088 4s: ADDL2 TERMINATOR_LENGTH, CHARPTR 
E 9 £ 9096 BLBC CREATE, 9$ 
0 bo PUSH 
re 7A BF 9A 00098 MOVZBL #122, <(SP) 
000000006 Q 2 FB 009F CALLS ae SBGSMAKE_SKELETON_DESC 
DO O00A6 MOVL RO, SETVALPTR 
03 A2 000000006 00 90 000A9 MOVE DBGSGB_ ANGUAGE, 3(SETVALPTR) 
06 =A 0608 8F 80 00081 MOVW #1544, ~6(SETVALPTR) 
14 =A BO 00087 MOVW #32, 20(SETVALPTR) 
18 «OA 20 =A 4 0088 MOVAB 32(R2), 24(SETVALPTR) 
5A 18 A2 00 000C OVL 4(SETVALPTR), SETVAL 
50 06 AS 9A 00064 MOVZBL 6(VALPTR), 
02 50 91 900¢8 CMPB RO, #2 
1B 1F 000CB BLSSU 5$ 
03 50 91 000CD CMPBs«aRO, #3 
16 1A 60009 BGTRU 5$ 
gi pp 00D2 PUSHL #1 
7E 0100 8F 3¢ 000D4 MOVZWL #256, =(SP) 
08 DD 00009 PUSHL #8 
7E 16 A3 9A 000DB MOVZBL 22(VALPTR), (SP) 
000000006 00 04 FB OO0DF CALLS #4, DBGSTYPEID_FOR_SET 
1A 11 O00E6 BRB 6$ 
04 50 91 O00E8 S$ CMPB sO, #4 
18 if O0EB BNEQ 4 7$ 
56 08 A p O0ED MOVL 8 (VALPTR), TYPEID 
7E 0100 8F 3C O00F1 MOVZWL #256, -(SP) 
08 0D 000F6 PUSHL # 
0c Ag DD 000F8 PUSHL  12(TYPEID) 
000000006 00 Q FB oor CALLS #3, DBGSTYPEID_FOR_SET 
08 A2 0 dO 010 6$ MOVL RO, 8(SETVALPTR) 
D 11 00106 BRB 8$ 
00028708 8F DD 00108 7$: PUSHL #165848 
000000006 00 1 FB 0010 CALLS #1, LIBSSIGNAL 
9 D4 00115 8$: CLRL —- CREATE 
: DD 00117 9$: PUSHL SETVALPTR 
DD 00119 PUSHL VALPTR 
: DD 00118 PUSHL : 
000000006 00 FB 0110 CALLS #3, DBGSPERFORM_TYPEID_CHECK 
0D 0 £8 00124 BLBS 1 
00028F20 BF DD 00127 PUSHL 677 
000000006 1 FB 12D CALLS #1, LIBSSIGNAL 
18 A3 DO 00134 10$: MOVL $24¢VALPTR), VALADDR 
OF 00000000' i D4 1 CMPL TERMINATOR_CODE. #15 
3 : 135 BNEO $ 
0D E9 00141 BLBC wis SUBSCR_1S_RANGE. 11$ 
00028F08 BF DD 00144 PUSHL #16768 
000000006 00 1 FB OO14A CALLS #1, LIBSSIGNAL 


GPARSER 1 
ve 
58 1 9 151 118: MOVL 
154 BRB 
19 E 1 § 12$ BLBC 
2 Dd 1 MOVL 
4 5 ? 15¢ CMP 
Dd 15F Bi” 
00028F08 F OD 19 PL 
000000006 00 1 FB 00167 CALLS 
8 04 18 13$: CLRL 
a8 11 001 BRB 
3 D 172 148: MOVL 
5 4 0D Vy MOVL 
5 0 178 158: TSTL 
2 19 QO17A BLSS 
00000100 8F 5 01 pif CMPL 
D 15 \3 BLEQ 
00028248 F DD 00185 168: PUSHL 
000000006 00 1 fe $188 CALLS 
4 05 00192 178: TSTL 
9? 19 00194 BLSS 
00000100 = =&F 4 D1 00196 CMPL 
go 15 0019D BLEQ 
00028248 F DD QO19F 188 PUSHL 
000000006 00 01 £B OO1A5 CALLS 
50 FF AS YE QOTAC 198 MOVAB 
04 11 00180 BRB 
00 6A 50 ES 0162 20$: BBSS 
F8 50 54 £3 00186 218: AOBLEQ 
FE8B 31 OO1BA BRW 
59 52 00 001BD 228 MOVL 
04 001C0 RET 


3; Routine Size: 449 bytes, Routine Base: DBGSCODE + 3162 
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AX-11 Ot igen 38-238 
DEBUG. SRC JDBGPARSER.B32;1 


#1, THIS_SUBSCR_1S_RANGE 
5 SUBSCR_IS_RANGE, 14$ 
LADDR), R4 

RANGE_VAL, R4 


88 
LIB$S 
SUB 


IGN 
SCR 


4, LOW RANGE_VAL 
W_RANGE_VAL 
LOW_RANGE_VAL, #256 
#164424 

#1, LIBSSIGNAL 

R4 

18$ 

R4, #256 

19$ 

#164424 

#1, L IBSSIGNAL 
-1(R5), I 

I, (SETVAL), 21$ 
Ri. 1, 20$ 
SETVALPTR, RO 
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16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 

10-360- 1982 93319558 DEBUG. SRCIDBGPARSER.039; 1 
ROUTINE GET_SUBSCRIPTS(PRIMPTR): NOVALUE = 


FUNCTION 
This routine 


picks up subscript values in an array reference. 
calls DBGSEXP ess) 
a 


It 
ON_PARSER to parse and evaluate each Syoeer “rs 
expression. lso checks the data type of each subscript value 
and converts it to the appropriate data fype aS ngeeesery. The 
ultimate subscript values are stored as integers in the Primary 
Descriptor Array Sub-Node for the array being subscripted. A new 
Sub-Node for the array element type is then sppended so that the 
Primary Descriptor becomes a descriptor for the array element 
selected by the subscripting. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

1 

‘ This routine also handles subscript ranges, such as ARR(1:5,3:10). 
: It does so by modifying the subscript lower and upper bounds in 
! the Array Sub-Node subscript vector to in effect define a new 

! prey namely the array ‘‘slice’’ defined by the subscript ranges. 
‘ In this case no Sub-Node for the array element is appended since 
the Primary Descriptor still defines an array. 
i 

i 

i 

i 

i 

i 

i 

i 

i] 

i 

i 

i 

i 

i 

i 

i 


This routine assumes that the opening subscript parenthesis has 
already been found and that the parse pointer points to the start 
of the first subscript expression. When this routine returns, 
the parse pointer is left pointing at the first character after 
the closing subscript parenthesis. 


INPUTS 
PRIMPTR = A pointer to the Primary Descriptor for an array about 
to be subscripted. 


OUTPUTS 
The PRIMPTR crenery Descriptor is changed to include the mibocr tat 
information (the actual subscript values) and a new Sub- 
Node for the selected array element. PRIMPTR itself is 
not changed, however. 


BEGIN 


Pp 
PRIMPTR: REF DBGSPRIMARY; 


Pointer to array Primary Descriptor 


LOCAL 

Eo a ! Bit size of subscript value data type 
DECLTYPE: REF DBGSVALDESC, ! Pointer to Value Descriptor for 

‘ declared subscript data type 
DESCR: DBG$STG_DESC ' String descriptor 
DSCADDR: REF DBGS$STG_DESC. ! Pointer to a string descriptor 
FCODE ' Data type FCODE for array element type 
LA_PTR: REF VECTORC,BYTE), i Lookahead pointer into input 
LOQ_RANGE_VAL ' Low value of a subscript range 
NODEPTR: REF bBGSPRIM_NODE, ' Pointer fo Prim Descr Array Sub-Node 
SAVED_RADIX ! Temporarily saved expression radix 
SUBSCR_COUNT, i Actual subscript count in input Line 
SUBVECTOR Pointer to subscript block-vector 


REF DBGSPRIM_NODE_SUBS, in Primary Descr Array Sub-Node 


a 
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GPARSER 16-Sep-1984 02:10:13 AX-11 Bliss-32 V4.0-74 Page 339. 
mi 137808-1 3c 95:19:43 DEBUG. SRC IDBGPARSER.B3 31 ° (43) | 
31 16 10707 THIS_SUBSCR_IS_RANGE, ' Flag set if the current subscript is | | 
31061 107 3 : given as a subscript range 
31 18 107 TOKEN ' Lexical Token 
31061 1071 TYPECODE ! VAX standard type code for atomic type 
310620 1071 TYPEID: REF RSTSENTRY, i Holds a typeid 
310621 1071 VALADDR: REF VECTORC,LONG), ! Pointer to integer subscript value | 
2130 ¢ aE VALPTR: REF DBGSVALDESC; ! Pointer to subscript Value Descriptor 
$106 4 1ari6 DBG$GL_CURRENT_PRIMARY = .PRIMPTR; 
2106 g 10717 | 
3130 i 19718 Check that the Primary Descriptor is really a Primary Descriptor! 
:106¢9 10720 IF _.PRIMPTRCDBGSB_DHOR_TYPE] NEQ DBGSK_PRIMARY_DESC | 
10683 10796 SIGNAL (DBG$_NOTARRAY) ; | 
$1065 10724 ' | 
310634 10725 ' Check that the Primaty Descriptor is for an array--otherwise subscripti | 
3 1068? 19768 : is not allowed. " 4 . ith : 9 
310637 10758 if .PRIMPTRCDBG$B_DHDR_FCODE] NEQ RSTSK_TYPE_ARRAY 
£10038 19786 THEN EGIN 
710640 10731 | 
310641 19736 ! Check for the possibility of a substring reference. 
2 10666 1073 ! —E.g.. im FORTRAN, if a variable is declared CHARACTER*n 
31064 10734 ! we see it in the DST as an atomic item of type T. 
31 Rete 10736 } We want to allow X(i:j) in this case. 
310646 10737 If ,PRIMPTRLDBGSB_OHDR_FCODE] EQL RST$K_TYPE_ATOMIC 
710648 10739 4 BEGIN | 
By et4 Hoe 2 DBGSSTA_TYP_ATOMIC (.PRIMPTRCDBGS$L_DHDR_TYPEIDJ, TYPECODE, BITSIZE); 
° | 
310651 10742 4° 
3 10036 19763 4 ! Special case for BASIC. In this case, each element of an 
31065 10744 4 ' array is a VMS descriptor. 
310654 10745 4 ! 
10699 10746 4 IFT VPECODE EQL DSC$K_DTYPE_DSC | 
310657 10748 5 IN | 
210658 10749 5 DBGSPRIM_TO_VAL (.PRIMPTR, DBGS$SK_VALUE_DESC, VALPTR); 
3 19639 ree DSCADDR = VALPTRCDBGSA VALUE _VMSBESCJ; 
Bt vrs, Vers {fg PSCADDRCOSCSS_DTYPES EQL DSCSK_DTYPE_T 
: 10668 19783 6 BEGIN 
31066 10754 6 GET SUBSTRING (.PRIMPTR, .DSCADDR); 
310664 10755 3 RETORN; 
‘bees 10789 eno; 60 
310667 10758 4 ‘ 
310668 + 254 4 IF .TYPECODE EQL DSCSK_DTYPE_T 
£10690 spe, BEGIN 
110671 10763 BE Sc ApDSCSs_ CLASS] = DSCSK_CLASS_S; 
310672 1076 DESCRLDSCS$B_DTYPE] = DSCSK_DTYPE_T; 


f 


. 
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yOe006 1 =3007 138% 9) ‘43 DEBUG. SRCIDBGPARSER. 039; 1 . 43) va 

310673 10764 DESCRCDSCS$W_LENGTH) = .BITSIZE/8; , 

310674 10765 GET_ SUBSTRING (.PRIMPTR, DESCR); 

310675 1 106 RETORN; 

lee eo; 

31067 107 ; | 

£10679 1 58 IF .PRIMPTRCDBGS$B_DHDR_FCODE] EQL RSTSK_TYPE_DESCR | 

‘10e8t 10772 & THEN BEGIN | 

:1068¢ 1 ae 4 DBGSSTA_TYP_DESCR (.PRIMPTR CDBGSL_DHDR_TYPEIDJ, DSCADDR); 

#10686 19778 2 IF je scADOREDSCSB_OTYPES EQL DSCS$K_DTYPE_T | 

[10685 10776 5 BEGIN | 

310686 10979 é GET SUBSTRING (.PRIMPTR, .DSCADDR); 

310687 10778 RETORN; 

; 10688 10779 4 END; | 

£10690 10781 me | 

10691 1078 | 

2 10636 10788 ! For typed pointers there are two special cases: 

31069 10784 ' For language C oyoser tet vag of pointers is allowed; e.g., 

310694 10785 ! PTRIn] is equivalent to *(PTRtn) 

310695 10786 ! For ADA, the pointer dereference is implicit; thus if PTR 

2 12008 14 tA : is a pointer then PTR(I) in ADA is equivalent to PTR“*LI) 

; ! in ‘ 

310698 10789 ! 

5 10699 10790 IF ,PRIMPTRCDBGSB_DHOR_F CODE) EQL RST$K_TYPE_TPTR 

10701 10792 4 BEGIN 

oy 144 tat, ? CASE . , DOGSEB_LANGUAGE FROM DBG$K_MIN_LANGUAGE TO DBG$K_MAX_LANGUAGE OF 

10704 10795 4 

310705 10796 4 ' For Language C pybser toting of pointers is allowed; e.g., 

310706 10797 4 ' PTREn] is equivalent to *(PTR+n) 

310707 10798 4 ! 

Bes 1883 earth 

31071 1 OCAL 

1OrTt 10808 3 ADDRESS, ' Address of array (value of pointer) 

tore 10803 ° DUMMY ! Dummy output parameter _ 

31071 10804 5 VALPTR: REF DBGSVALDESC;! Pointer to a Value Descriptor 

310714 10805 5 

310715 1DER8 

310716 1080 BUILTIN 

10718 10809 ett 

310719 10810 

310720 10811 é ! Compute the value of the pointer that is represented 

3197 2 10818 5 } by the current primary. 

107 10814 DBGSPRIM_TO_VAL (,PRIMPTR, DBGSK_VALUE_DESC, VALPTR); 

i107 4 ia | ADDRESS = PUALPTREDBGSL. VALUE. VACUE OI: 

3107 1081 ; 

£10759 10818 ! Unlink the existing subnode and build a new one to 

3 1p7se 10819 é ' describe an array. 

310729 10820 ? 
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voee 1 ~Sep-19 4 93319530 DEBUG. SRC JDBGPARSER.B32; 1 


NODEPTR = .PRIMPTRCDBGSL_PRIM_BLINK]; 
REMQUE(.NODEPTR, DUMMY); 
TYPEID = DBGSTYPEID_FOR_ARRAY(.PRIMPTRCDBGSL_DHDR_TYPEIDI, 


4 1 1 

: ie 

; 10824 “ADDRESS 

; 10825 DBGSBUILD_PRIMARY_SUBNODE (.PRIMPTR, RSTSK_DATA, 0 
310735 1 $ ST$K_TYPE_ARRAY, .fYPEID, 0); 
: j NODEPTR = .PRIMPTRCDBGSL PRIM_BLINKI; 

; 10828 NODEPTRCDBGSL_PNODE_RELOC) = [ADDRESS; 

; 1 4 9 4 END; 

£10766 1088) 

: 1 198 § 4 ! For ADA, the pointer dereference is implicit; thus if PTR 
; ¢ 1 4 i isa pointer then PTR(I) in ADA is equivalent to PTR*LI] 
3 i 138 : ? ! in PASCAL. 

710745 10836 4 {DBGSK_ADA): 

31 § 1983 BEGIN 

107e8 10839 

i , + 98 : Dereference the pointer. 

710751 10848 WHILE .PRIMPTRCDBGS$B_DHDR_FCODE] EQL RSTSK_TYPE_TPTR DO 
31 ; 1084 GET_DEREFERENCE(PRIMPTR); 

‘ore 1oBcs 3 

310755 10846 5 ! If the Primary is still not an array then 

i $ sf : : signal an error. 

i] ; Hs rh 5 IF ,PRIMPTRCDBGSB_DHDR_F CODE] NEQ RST$K_TYPE_ARRAY 
310760 10851 3 SIGNAL (DBG$_NOTARRAY) ; 

31 1 Hs $4 4 END; 

10768 lope 

i ee Hs +4 ? } For other languages, we cannot subscript typed pointers. 
10766 10857 4 CINRANGE): 

310767 10858 4 SIGNAL (DBG$_NOTARRAY); 

10769 10860 4 

i A i Oaes 2 We do not expect any other Language codes. 

31 ze 10863 4 COUTRANGE): 

31077 19008 4 SDBG_ERROR("DBGPARSER\GET_SUBSCRIPTS 5°); 

310774 10865 4 

310775 19008 4 TES; 

31 4) 10867 4 END 

we ise 

310779 10870 4 ! Else the variable is neither a string nor a typed pointer 

#16 Bi 10878 ? } nor an array so subscripting is not allowed. 

407 1087 ELSE 

10788 1 er SIGNAL (DBG$_NOTARRAY); 

310784 10875 END; 

310785 1 a78 

310786 1087 
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; ' Set ointers to the Primary Descriptor Array Sub-Node and to the i 
‘1 # : H ot BH. vector within that node. i 
at , $L_PRIM BLINK]; fl 
£107 SUBVECTOR = NODEPTREDBCSR. PNARR: SVE CORI; : 
73 i TOV RODEPTALDBG -PNODE_FCODE] NEQ RSTSK_TYPE_ARRAY : 
iy 36 i 8 3 SDBG_ERROR("DBGPARSER\GET_SUBSCRIPTS 10°); : 
310795 1 Hf 5 
195 i ressions for this array reference. Each é, 
WS 1 85 subscript ; persed, evaluated, one weeeeste a ee spereer vere t oe : 
10809 is fates tn eats te "9 : inte . alue is stored in the Array Sub-Node's é, 
i 10892 | eet eine bike a 7 No ° that TERMINATOR_CODE is set within the : 
#1080¢ 10888 i Toop as’s sidecetfect of the catt on DEGSEXPRESSION PARSER” | ; 
$1080 10895 RANGE = FALSE; | : 
£15808 10896 SUBSTR COUNT =~ NODEPTREDBGEB,PuaRn SUBCNTI; i 
o 3 
Bt 19898 unICe NTERAINATOR. CODE NEG TOKENSK_TERM_CLOSE DO i 
; 10899 GIN : 
£10809 10900 aoe ‘ 
$1081 10903 ! Check that the actual subscript count does not exceed the dimension . 
£10814 1090 count for the array. 4 
‘10814 19908 if -SUBSCR_COUNT GEQ .NODEPTRCDBG$B_PNARR_DIMCNTJ i 
$1981 19909 vm "SIGNAL (DBG$_ TOOMANSUB, 1, .NODEPTRCDBG$B_PNARR_DIMCNT)); ‘, 
310817 10908 i 
£1081 199% ) is the same as X(lower:upper). : 
10818 19919 He Fal tab ceteris then pévence the character pointer beyond | :, 
£10801 19918 } the asterisk and also increment the subscript count. | ; 
#1083 : "i ; | ; 
a aET BARRE Mias + 50 pth © LAP +1 eee 
£10898 10916 IF .LALPTREO] EQL 's! | : 
$108 $ 19918 4 THEN EGIN | :, 
$108 8 10919 ¢ CHARPTR = .LA_PTR + 1; ; 
#10880 i 
£108 10992 take us past the '," or : 
i108 193 5 é eeu eh thes Te tt ree TERMINA OR_CODE to the : 
110838 199 4 i terminator that is seen. If we do not see a terminator é 
+1983 199 $ 4 i then signal a syntax error. Also signal an error i : 
£10838 109 § & i *:" was the terminator. : 
$108 199 4 s AL_SCANNER (FALSE, FALSE, : 
i108 199 5 4 _— anne t: RIP TERM TBL, 6S; ; 
+108 10930 4 IF .TOKEN NEQ TERMINATOR_TOREN 
wee HRN ae 7 
-4 
; 109 ; LOCAL 
‘10868 10934 ASCIC_STRING: VECTOR(2,BYTE); 


4 gts ER 


310844 10935 

Bh PF 19937 ; 
HOR? 1538 
31 § 1 940 4 
31 29 10941 4 
i i3t¢ 
ie ie 
Nee TER 
710 3 10948 4 
10858 10949 4 
10859 10950 4 
10860 10991 4 
710861 1 95¢ 4 
: 1086 10953 4 
71 10954 
310864 10955 ; 
i ne 
ae RR 
10869 10960 6 
10870 10961 
310871 + 4 44 ; 
: 10878 1096 
1087 10964 4 
‘10878 199ee 
:10876 1096? 4 
1087 10968 4 
710878 10969 3 
‘ie iP 
£1088) 19978 
att 10974 4 
31 10975 4 
10885 10976 4 
at isore 
a 
10889 109 0 4 
: 10890 1 381 4 
£10892 19988 
£10898 19984 4 
10894 10985 4 
£10896 19986 ¢ 
10899 19988 4 
10898 13 9 & 
310899 10990 4 
10900 10991 4 


iEosen-1964 02:10:18 


AX-11 OL igseg ye 20-288 
DEBUG. SRC JDBGPARSER.832;1 


ASCIC STRINGEO] 21; 

ASCIC“STRINGL1) = ,CHARPTR(O); 

SIGNAL (DBGS_SYNERREXPR, 1, ASCIC_STRING); 

IF; TERMINATOR. CODE EQL TOKENSK_TERM_COLON 
SIGNAL (DBG$_INVRANSPEC); 

IF, TERMINATOR, CODE EQL TOKENSK_TERM_NONE 
SIGNAL (DBG$_MISCLOSUB) ; 

CHARPTR = .CHARPTR + . TERMINATOR_LENGTH; 


Turn this reference into a range. 
If it was not already a range, then turn all previous 
subscripts into ranges. 


a -NODEPTRCDBGSV_PNARR_RANGE J 


BEGIN 
NODEPTRCDBGSV_PNARR_RANGE] = TRUE; 
INCR I FROM O"TO .SOBSCR_COUNT - 1 DO 


BE 
SUBVECTOREC.1, DBGSL_PNSUB_LBOUND] = 
-SUBVECTORC.1, DBGSL_PNSUB_SVALUE]; 
SUBVECTORC.1, DBGSL_PNSUB_ UBOUND] = 
=e -SUBVECTORC.1, DBGSL_PNSUB_SVALUEJ; 


END; 
SUBSCR Count = .SUBSCR COUNT +1; 
NODEPTR DBGSV_PNARR_RANGE] = TRUE; 


BEGIN 


! Call the expression parser to pick up the next subscript expression 
' and its value. Note that we set the radix to decimal over this call 
!' and then restore it. Also note that the Expression Parser sets 

: TERMINATOR_CODE and TERMINATOR_LENGTH as a side-effect. 


SAVED RADIX = EXPRESSION RADIX: 
EXPRESSION RADIX = DBGSK DECIMAL; 
VALPTR = DBGSEXPRESSION PARSER (FALSE, .SUBSCRIPT_TERM_TBL); 
EXPRESSION_RADIX = .SAVED_RADIX; 


Check the terminator code. If there was no terminator (the input 
Line just ended), signal an error. Otherwise we got a comma or clos- 


ing subscript parenthesis and we increment CHARPTR to get past it. 


' 
; 
' 
iF . TERMINATOR CODE EQL TOKENSK_TERM_NONE THEN SIGNAL (DBG$_MISCLOSUB) ; 
CHARPTR = .CHARPTR + .TERMINATOR_LENGTH; 
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! We now need to convert the subscript to one of the appropriate 
! dtype. We need to set up a target descriptor for the senvereren 
: rout ine ve allocate a skeleton descriptor and fill in some o 

i oO 


IPE = DBGSMAKE_S 
TYPECDBGSB DHDR-K 
i 


ELETON_DE C(DAGSK _VALUE_DESC, 4); 
NDJ = RSTSK_DATA; 

.$U uBV CTOR CR_COUNT; pecs _PNSUB_TYPEIDJ; 
YPECDBG _DHOR DJ"= .TYPEID; 
TYPE DBGSL “VALUE TER] = DECLTYPECDBGSA. VALUE _ADDRESSI; 


OOVSso a 


DE 
DE 
TY 
DE 
DE 


now must fill in the FCODE, CLASS, DTYPE, and LENGTH fields 
the target descriptor. To do this, we need to look at the 
e 


35 
vo 


TYPEID EQL 0 
BEGIN 


x” 
mn 
2: 


! No typeid available - assume longword integer. 


1 
' 
DECLTYPECOBG$B_DHDR_FCODE] = RSTSK_TYPE ATOMIC; 
DECLTYPECDBG$B_VALUE_CLASS] = DSCSR_CLASS 
DECLTYPECDBG$B_VALUE_DTYPE) = DSCSK_ ~pTYPET “L: 
DECLTYPE DBGSW"VALUE-LENGTH] = 4; 


ELSE 
BEGIN 


Typeid is available - determine FCODE from it. 


DBGSSTA_ SYNSIZEC. TYPEID, BITSIZE); 
CODE =~. TYPEIDCRST$B_FCO E]; 

Deer FYPECDBGEE DHDR_FCODE jECODE:; 

IF et CODE EQL ASTSK~TYPE ATOMIC 


N 
BEGIN 


Atomic data - determine class, dtype, and length from DST. 


DBGSSTA TYP_ATOMIC(.TYPEID, TYPECODE, BITSIZE); 
.TYPECODE EQL DST$K_BO0L 


Pe cope = DSCSK_DTYPE_TF; 
DECLTYPE bBGSB_ VALUE .C “CLASS] = DBGSMAP_DTYPE_CLASS ( 


DECLTYPE a ya vee = ,TYPECODE; 
IF BS C 


K_D 

K-DIYP 
K7DT 
K"DTYPE~ 
K"DTYPE “TF 


8 
DBGraRsER iSrseoctgee 0:10:15 yayett at ine=52 v4 0-742 | 


Ss 


VALADDR = .VALPTRCDBGSL VALUE POINTER); 
IF (.DBGSGB_LANGUAGE EQC DBGSR 
({TYPEID"NEQ 0) AND 
({FCODE EQL RSTSK_TYPE_ENUM) 
CHECK_VAL = DBGSENUM_POS(.TYPEID,.VALADDR(O)) 
CHECK_VAL = ,VALADOR(O); 


IF (.CHECK_VAL LSS .SUBVECTOR(.SUBSC 
(,CHECK VAL GTR .SUBVECTORL.SUBSC 
C 


EN 
SIGNAL (DBG$_SUBOUTBND, 4, ,SUBSCR_COUNT + 1, CHECK VAL 
.SUBVECTORE.SUBSCR_COUNT, DBG$L_PNSOB_LBOUND), 


ADA) AND 


Sesesseese 
segses 


_COUNT, DBGSL_PNSUB_LBOUND]) OR 
COUNT. DBG$L~PNSUB~UBOUND)) 


31 H 11049 THEN 

2 1 9 aL gPECLTVPECDRGSY_VALUE LENGTH) = (.BITSIZE+7)/8 

i] 1105¢ eyp DECLTYPECDBGSU_VALUE LENGTH] = .BITSIZE; 

31 11 

i] 1 ¢ fise IF .FCODE EQL RSTSK_TYPE_DESCR 

i} 1 $ BEGIN 

i 1; } Descriptor data - determine class, dtype, and length from DST. 
1 11 é DBGSSTA_TYP_DESCR (.TYPEID, DECLTYPECDBGSA_VALUE VMSDESC)); 
i , 1 $6 ? IF DECC TYPELDBGSB. VALUE. DTYPES EQL DST$K_B00L. ~ 

31 ig 11084 6 DECLTYPECDBGSB_VALUE_DTYPE] = DSCSK_DTYPE_TF; 

ft - 

1097 1106 LSE 

HO9r? F's | ? ’ BEGIN 

#10979 11090 6 ' Longuagewspec if ic fcodes. Here we dummy in the dtype field 
310980 1100) 6 ! with a special code. Determine class and length information 
H1098¢ 11506 ? using routines in DBGEVALOP. 

31 HY 11074 4 DECLTYPECDBG$B_VALUE_CLASS] = 0; 

310984 11075 6 DECLTYPECDBGS$SB_VALUE_DTYPEJ] = 0; 

31998? 1138 2 Brat tere DBGSW_VALUE_LENGTH) = (.BITSIZE+7)/8; 

110887 11079. ¢ — 

710989 119 0 4 

710990 11081 4 ' Finally call the conversion routine. This routine checks that 

3 1993) 118 § ? the conversion is legal before doing it. 

£10998 11084 ‘ VALPTR = DBGSEVAL_LANG_OPERATOR(DBGSGL_CONVERT_TOKEN, .VALPTR, .DECLTYPE); 
10 5 11086 4 

£10996 11089 4 ! Check that the subscript value is within the array bounds and give an 
31099 11088 4 ! informational message if not (execution continues after the message). 
310998 11089 4 ' For ADA, we make sure to check enumeration subscripts by their 
310999 11090 4 ' position and not by their value. 

311000 110 4 ! 

31 11 4 

31 11 4 

31 11 4 

31 11 5 

31 11 4 

31 11 4 

31 11 4 

31 11 4 

31 i 4 

31 1 4 

31 11 5 

71 11 4 

31 11 & 

31 11 4 
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-SUBVECTORC.SUBSCR_COUNT, DBGS$L_PNSUB_UBOUND)) ; 


— — > 


WR —O DONO UE WN" OOONOu 


If the terminator at the end of this subscr ior grerngs ton was a colon 
we have a qusscr ipt range (for esenpie "“ARR(1:5,2)°). We thus set 
the subscript-range flag and save the low value of the range, i.e. 
the value ve ust picked up. If this is the first range in the 
subscript List, we also turn all previous subscripts into conepe by 
setting the lower ane upper bound for each such subscript to the 
correspond inn subscript value. This in effect defines a new array 
which constitutes a ‘‘slice’’ of the original array. 


TERMINATOR _CODE EQL TOKENSK_TERM_COLON 


dems mr ecesacasasacaso 


F 2 
HEN <— 
THIS S_RANGE THEN SIGNAL (DBG$_INVRANSPEC); 
THIS SUBSCR_IS_RANGE = TRUE; 
LOW RANGE VAL =. 


VALADDR(OJ; 
ent -NODEPTRCDBG$V_PNARR_RANGE J 


BEGIN 
NODEPTRCDBGSV_PNARR_RANGE] = TRUE; 
INCR 1 FROM O-TO .SOBSCR_COUNT - 1 DO 
SUBVECTORE.1, DBG$L_PNSUB_LBOUND) = 
-SUBVECTORE.1, DBG$L_PNSUB_SVALUE); 
SUBVECTORC.1, DBG$L_PNSUB YBOUND 2 
ame -SUBVECTORE.1, DBGSL_PNSUB_SVALUE); 


END; 
END 
The terminator was not a colon, so we now have the full subscript 


specification. Fill the subscript value into the Array Sub-Node's 
subscript vector. Set up the bounds for an array ‘'slice’’ if this 


ee ce ee ee ct ee ce ee ce ec ce cee ee ee ce ce ce ce ee ee ee ce ce ce ce ce ce el ee ce ce ec DD ce ce ee ce cee ed ed ed wd 

ee ee eee ee eee 
SSSSSSSSSSRRRRELAEES RSS eesssssssssssss 
PUPP & Wyveeuye 
DONO UNE W O OONO US wn 00 w 

DDR DPD PPP BE PVPS STS SISSON OR SIN NOOO UTI BP PPP PPL PL PEE 


or any previous subscript specification in this array reference 
consisted of a subscript range. Also bump the subscript count. 
ELSE 
BEGIN 
060 51 ! If this subscript is specified as a subscript range, check that 
061 26 ! the first value in the range is not greater than the second. 
006 37 } Also clear the subscript-is-range flag for the next subscript. 
55 if _.THIS_SUBSCR_IS_RANGE 
065 2 THEN 
066 5 BEGIN 
067 3 IF .LOW RANGE VAL GTR .VALADDR(O] THEN SIGNAL (DBGS$_INVRANSPEC); 
068 5 THIS_SUBSCR_IS_RANGE = FALSE; 
90 END 
2 


oO 
™~ 
-o 


=a 


, | 
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10-30b-188e 93:19:50  Eeaus. SacHoacPanséR.0%9;1 9° 23) \ 
311 11163 ! Otherwise, set the low range value to be the subscript value. i 
31107 11164 ’ 
311 11165 LSE ; 
311075 13398 LOW_RANGE_VAL = .VALADDR(O); > 
ih : 
311 44 11188 ! If this or any previous subscript in this array reference con- | 
31107 11170 ! tained a range specification (as in ARR(5:10)), then we arrang ‘ 
311080 11171 ! the array's lower and upper bounds to reflect the array ‘‘slice’’ ‘ 
33108) 11176 the user is requesting. ‘ 
11088 11174 IF _ .NODEPTRCDBGS$V_PNARR_RANGEJ : 
311084 11175 THEN F 
311085 11178 6 BEGIN : 
311988 11177 6 SUBVECTORC.SUBSCR_COUNT, DBGS$L_PNSUB_LBOUND] = .LOW_RANGE_VAL; i 
71108 11128 SUBVECTORE.SUBSCR_COUNT, DBGS$L_PNSUB_UBOUND) = .VALADDR(OT; ‘ 
311088 1117 END; F 
311089 11180 ‘ 
311090 11181 F 
311091 A ! Finally fill in the subscript value itself (the start of the F 
5110 BF range), increment the subscript count, and Loop. ‘ 
311094 11185 SUBVECTORC.SUBSCR_ COUNT, DBGSL_PNSUB_SVALUE] = .LOW_RANGE_VAL; : 
311095 11186 5 SUBSCR_COUNT = .SOBSCR_COUNT +71; | 
311096 11187 4 3 : 
311097 11188 END; : 
311098 11189 END; ! End of WHILE loop over subscripts 3 
311099 11190 3 
311100 11191 : 
311101 11136 ! We have picked up all the subscripts within this set of subscript paren- ‘ 
511136 1119 ! theses. Now check that the subscript count is the same as the dimension 3 
31110 11194 ' count unless the Language a} tows fewer subscripts (as in Pascal where 3 
311104 11195 & !' the array reference X(2,3)(4) is valid). If fewer subscripts are allowed 3 
eh Bs } we return now, leaving the Array Sub-Node at the end of the Primary. 3 
H1T109 11198 NODEPTRCDBG$B_PNARR_SUBCNT] = .SUBSCR_ COUNT; : 
3711108 11199 IF .SUBSCR_COONT NEG .NODEPTRLDBG$B_PNARR_DIMCNTJ 3 
311109 11200 THEN ‘ 
311110 11201 GIN ‘ 
311111 11 4 IF .MULTIPLE_SUBSCR THEN RETURN; 3 
BET; 1120 SIGNAL (DBG$_TOOFEWSUB, 1, .NODEPTRCDBG$B_PNARR_DIMCNT)); : 
31111 11204 END; ‘ 
311114 11205 ‘a ‘ 
311115 11 B6 F 
311116 1120 ! If any subscript range was specified, we leave the Array Sub-Node at the j 
311117 11208 ! end of the Primary even if all subscripts were specified. In other words, ‘ 
ottii3 1 4 we still have an array, namely the specified ‘‘array slice’’. ; 
atti iy 12 IF .NODEPTRCDBGS$V_PNARR_RANGE] THEN RETURN; ; 
3111 1121 
3111 : 11214 ' ALL the subscripts are specified. Now set the EVAL bit in the Array ; 
311124 11215 ! Sub-Node to indicate that subscripting actually is being done. Also 
311125 11 16 ' construct a new Sub-Node for the array element type and append it to 
Wy $ 1 4 the Primary Descriptor. Then return. 
311128 11219 NODEPTRCDBG$V_PNODE_EVAL] = TRUE; 
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DBGPAR ER 1 
V 14-Sep-1 DEBUG. SRCJDBGPARSER.B32;1 (43) 
7111 11220 FCODE = DBGSSTA_TYPEFCODE( .NODEPTRCIDBGSL_PNARR_CELLTYPE)); 
[111 1 1 DBGSBUILD_PRIMARY_SUBNODE(.PRIMPTR, RETER DATA; f 
211131 1 g -FCODE, .NODEPTRIDBG$L_PNARR_CELLTYPE), 0); 
7111 ¢ 1 RETURN; 
i111 112246 
711134 11225 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
SF 54 45 47 45 52 41 50 47 42 44 1A 98 P.AYL: .ASCII <26>\DBGPARSER\<92>\GET RIPTS 5\ : 
Tee ee ee eee aon. sci: Gamwnmsemestneetescnis 10. | 
e = > 3 
30 31 20 : 54 50 ig 52 23 53 42 55 38 033C2 e 3 
-PSECT DBGSCODE,NOWRT, SHR, PIC,O | 
wrve Gunes sea cena! 4 Save R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 1065 
a ave ° . . ° ° e ° ° P) | 
5 CO AE 9E 00002 MOVAB -64(SP), SP : 
q 04 AC 00 00006 MOVL  PRIMPTR. R2 + 1071) 
000000006 0 52 00 O000A MOVL = R2 pBcgat CURRENT _PRIMARY : | 
79 ~—soBF 02 A2 91 00011 CMPB so (R2), #127 + 1072) 
0D 13 00016 BEQL «'1$ ; 
000287E8 8F DD 0001 PUSHL #165864 : 1072. 
000000006 00 01 FB OO01E CALLS #1, LIBSSIGNAL : 
5 04 A2 9E 9002 1$ MOVAB 4 (Re , RS : 1072. 
01 02 As 91 00029 CMPB g(r ); ; | 
1 0020 BNEQ $ : 
0129 : 002F BRW 14$ ; 
02 02 A3 91 00032 28 CMPB  =s-_-«2(R3), #2 + 1073) 
50 12 00036 BNEQ 4$ : | 
2C AE 9F 00038 PUSHAB BITSIZE + 1074 
4 AE 9F 00038 PUSHAB TYPECODE ; | 
08 A2 DD 0003E PUSHL 8(R2) : 
000000006 00 03 FB 00041 CALLS #3, DBGSSTA_TYP_ATOMIC ; | 
18 30 AE D1 00048 CMPL  TYPECODE, #24 > 1074 | 
20 12 0004C NEG 3$ ; ! 
1C AE 9F 0004E PUSHAB VALPTR : 1074) 
7E 7A i 9a 00051 MOVZBL #122, -(SP) ; 
DD 0055 PUSHL Re ; | 
000000006 00 0 FB 005 CALLS #3, DBGSPRIM_TO_VAL ; | 
20 AE 1¢ AE 14 C1 0005€ ADDL3 #26, VALPTR, ~DSCADDR : 1075. 
0 20 AE DO 00064 MOVL SCA : 1075. 
OE 02 Ad 91 00068 CMPB (RO), #14 ; | 
3 13 006C BEQL ; 
OE 30 AE D 006 3$ CMPL TYPECODE, #14 : 1075. 
14 1 09 BNEG 4$ : | 
36 AE 010E 8F B80 0007 MOVW 4270 DESCR+2 ; 1076 | 
50 C AE 08 ¢ 7A DIVL3 #8, BITSIZE, RO > 1076 | 
4 AE 5 80 6 F MOVW RO, DESCR ; 
34 AE OF 3 PUSHAB DESCR : 1076. 
1F 11 000 BRB : ; 
03 02 Ad 91 00088 4$ CMPB (R3), #3 ; 1077 
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DBGPARSER ibese -1984 02:10: AX-11 Bliss-32 V4.0-74 
V 132808- 1382 95:19:43 OraUG. SRETBBCEANSER. 04951 
Fl 11 0014 BRB 1$ 
01 02 fy 94 128 12$:  CMPB 23), #1 
D 14¢ BEQ 4$ 
000287E8 8F DD OO14E 138: PUSHL #165864 
000000006 00 1 FB 134 CALL a LIBS$SIGNAL 
50 04 AC 8 C1 00158 14$ ADDL3 #24, PRIMPTR, RO 
§ 60 BO 16 MOVL (ROS, NODEP 
28 A6 9E 0016 MOVAB 40(R6), SUBVECTOR 
A A6 9E 0016 OVAB 8 (NODEPTR), R10 
01 01 AA 91 00168 CMPB =s-s«sM (R10), #1 
15 1 16F EQL =s«15$ 
00000000" EF 9F 00171 PUSHAB P.AYM 
1 DD 00177 PUSHL #i 
00028362 8F DD 00179 PUSHL #164706 
000000006 00 3 FB 001 7F CALLS #3, LIBSSIGNAL 
10 AE 04 00186 15$:  CLAL Tils SUBSCR_1S_RANGE 
59 1F A6 9A 00189 MOVZBL 31(NODEPTR); SOBSCR_COUNT 
00000000" EF 01 DO 0018D MOVL #1, TERMINATOR CODE 
02 00000000" EF D1 00194 168: CMPL TERMINATOR_ CODE, #2 
03 12 00198 BNEQ 17$ 
0308 31 0019D BRW 51$ 
59 1B AG 08 00 ED 9010 17$ CMPZvV #0, #8, 27(NODEPTR), SUBSCR_COUNT 
13 14 O01A6 BGTR  18$ 
7E 18 A6 9A O01A8 MOVZBL 27(NODEPTR), -(SP) 
01 DD OO1AC PUSHL #1 
00028EB0 F DD OO1AE PUSHL #167600 
000000006 0 03 FB 001B4 CALLS #3, LIBSSIGNAL 
04 AE 00000000' EF 00 00188 18$:  MOVL  CHARPTR, LA PTR 
20 04 BE 91 001C3 19$: CMPB @LA_PTR, #32 
05 12 001C7 BNEQ 
04 AE D6 001C9 INCL  LA-PTR 
F i 001CC BRB 
2A 04 BE 1 OO1CE 208:  CMPB @LA_PTR, #42 
03 13 00102 BEQL i$ 
OOAF 31 00104 BRW 8$ 
00000000" EF 04 AE 01 C1 001D7 21$:  ADDL3 #1, LA_PTR, CHARPTR 
E D4 OO1E9 CLRL —_ = ( §P) 
00000000' EF DD 0 1E¢ PUSHL SUBSCRIPT_TERM_TBL 
E 7C OO1E CLRQ. = =(SP) 
p58c_—sCCF 04 FB OO1EA CALLS #4, DBGSLEXICAL_SCANNER 
18 AE 0 DO OO1EF MOVL RO, TOKEN 
5 00000000" EF 9E OOiFS MOVAB TERMINATOR_TOKEN, RO 
50 18 AE D1 OO1FA CMPL TOKEN, RO 
it 3 OUrE BEQL 228 
28 AE 01 9 6 MOVB #1, ASCIC_STRING 
29 AE 00000000" FF 90 00204 VB @CHARPTR, “ASCIC_STRING#1 
28 AE 9F 0020C PUSHAB ASCIC_STR 
DD 0020F PUSHL #1 
000289E2 8F DD 00211 PUSHL #166370 
000000006 00 3 FB 0 17 CALLS #3, LIBSSIGNAL 
03 00000000' EF D 3 22 CMPL TERMINATOR, CODE. #3 
D 12 00 NEG 23$ 
00028F08 8F OD 7 PUSHL #167688 
000000006 00 i. D CALLS #1, LIBSSIGNAL 
00000000' EF D 4 23%: TSTL | TERMINATOR_CODE 
1 A BNEG 24$ 
00028690 8F DD 00 PUSHL #167568 


Pee Se Se Se Se Se Se Se Se Se Se Se Ge Fe Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Be Se Ge Ge Ge Se Be Be Be Ge Ge Ge Ge Se Be Se Ge Se Ge Ge Be Se Ge Ge Se Be 


Sooo S&S SF SSSoo0oe ao oo Sse SSsS ssS8S S35 S oS 
oooo So oS Sooooooo oo oo coo ere Seer ern — — 
oe - - Sh eh eh ee ee eh ee -- -- Cee er See ooron- = - 
ee 6 Se 6 6 6G FG FS FS FS FS FS FS FS FS FS FS HG FS FS OS FS FS FS FS FOS FS FS OS FS FS FS OSHS FSFE ES HES HS FS SES HES SES ES ES FES SSS HSE CESS SCER HCE HEHEHE 
bd b 4 
— _— 
a a 
i. 4 <= a co 4 vu 
- « = « - ” 
a 1 uw ‘ a w 
a a ae 3 a a 
=< uw <= oO << 4 =) 
= >x <= = za w _ 
vo ceo Ie aw =) o a ~ = 
w “na 'w - nw uw o 
s ~N xq 2 w 2 w . wa i 
= - ano oO « = ad —— a> ms i? 
_ Ln] i. 4 . x -—- = a - w 2a }en« “naa ' 
Oe ecm onr = —2 | WwW <w o ~~ ADO fF Ue an zo> a 
az. oer+e-a+ ookzhlUwMlhUWwIG oP 4 YH wWOoOrFasivu we aT >oco 
<twty K-OnVOn * <—c w oO <w ' Avworww « aac Mu Rw 
2 VroOwreAree aeuvw « i) 2 ww> wwwoEe-~ ~~ ‘wo — 
© ts WOM>VUMNZZ me, a -x« I O tt awarea>ao~w — <= ww <2 
—aenn o>w~wOuw~w~sasa-= 2w ft xX*e-c Sea Aadct>sIVO>~wva «= © ied =) — 
NOOO Zaor>erxn>eaeooo oce wr-acod YO WHEKOMND-Oow> wo “vawrwm “ « 
Bee 20 OD Cee Aaa Ace AK ~SuUWOY oad wo A=O w Aw 
ao<ac wmona45 2: | & wx<KeS Unset oat (WOva rw «s+ sy aon ww Ow wo OG 
—wwew ——wWwINFAM?eae~ Ywe Ot G&S Ones OQww~ Mn et OnVva ~w~r NOMA ++ NOODMO 
—— Oe RWIAOWRVON WwW YVR Oo>or Moe cok NR ere OO Or ww Ow 
= 0-08.27 -08A4W -< wa we ~ EE w *eaweoaw m Yw §K-§oo Mww w 
SO + MOTOM~YOU OAD Va0c@dv” + >acHnvo se Ws = O~uva~~O AM HFA w~OOMrA4 a 
PW OO ONY SYNE DDO XK — DYNO EWI WTF KOO ONO S FN FON St OST OST eM > 
zV—RRBRVRBO~ B- - BOW B-WRwH 1 BIH VRZBe-BVVWCVBZV— BEMVUEMBBMO-— VL uM gae-—- Be 
@ ve) | oo 
u™m— oN mee 22 “ww — Ww 4oIUNM IMM 2 22 2 wow \¢ 
a4 «Ses DHSS I TET iO sy DI ao TI YIN UO Tt +HC004 FIoungawmwortrrti 
SQOMNKNWD IMM SYH SOV BPS PVE YS Sew JAH SP I> SUV SPP Pew SF POH I SPAWN UA. 
ey et te Fe Sit ts Fat Tet Tete at re ttteett pet tht Hi fet 
VI OMDEOZOA0F2400F <-OMOFFOAVVETE+DMAVKCAZTVESSEASESES+- GDMEZTOAAVZF Y@MAAAww 
me of C2 P eo ad 
wT wn or oo oa So 
NI N om N N ~ 


NOTDOVe —NAVUEMOS O44 MOWNDOVOWT OUMWOsT ODwV0 ff O- OL OWNS OWOr Oe vert fUM 
TFTMMINODOOOP-P-P-F-P- DODO OO Se OODOVCV OCC OWWWWe & ee HOODOO SM MK UIEUIEINNIOUM 
ROO OOOO OOOO OI OI OI IOI OOO OI OI OI OI OI OI OI OS OI OI OI OI OI IOI OI OI OI OI OI OOPS ELVES TPP ELVIS DPS VIF I PTD 
SOCCCCOOGOOOSOOOOOSOOOSOSSOOSOSSSOSOSOSSSCSOSSCOSOSCSOSOSCSOSOSOSOSOSOOSOSOSOOSOSOOSOSSSS 
SOOOCOOOCOOOOOSOOOSOSOSOSOGSGSOOOSSOSOSOSOSSSOSSSOSOOSOSOSOOSOSSOOOOOSOOOSOOOOSoOoOo 


DOOCOWe Mu & Ou LOMOO- OO OST DOOMNNMO DS 6<LDOOM & COWWMNVOO & OOO Nw OO 
& VWDV— VODA OPA Ou ODMOOOO4 OOO OBL VOC & OA VUA OOOO OK OOK OO OLUOO OK OO Ou So 


PID COT OIC LUCIO O00 Ls te ita WII WI a. Oo ee OOS UWI SF TO OO & £0 DW OM WWM ws 


eet © at > atts ts WODOMO— TONE INOODWVO INO Cnn <@ CMOS 

oo a vay 

zo <wo ive < 

o co (=) o So wo oc <« So ow Tr Ye co ww So 

o o o o So -o Oo SoS Bk — Ae om _- Co a) wal 

o o oS ow oS So 

o o So oe @2 So So 

Oo o oS on S&S oc 

oO o So osc S&S So 

So o oS °o Sc Ss _ 

Oo o oOo oo o o 
Oouwdde -— w we—- << we to ou wo vTrseo own re ca ww ou 
owomtm wm o on < daw watw Cow f-OoMdtmHN Naeem <zo Oowndco oo 
We o - We wo wo wo 
oo ww un TO MLvo oo Co f™ coco eo o wo ow 
oo oO o -o MeO oo co Oo on So co oOo oo 
oo i=] o So oo =] So oo 
oo So a So oo oS o oo 
oo So f=] oo =] [=] Coo 
oo So So oo So i=] oo 
oo So So oo So f=] oo 
oo oOo oO oo o cS oo 


n 8 

DBGPARSER 16-Sep- 21 AX-11 Bliss-32 V4.0-74 Page 
v04-0 14- $ee7} 382 5: 19: } DEBUG. SRC IDBGPARSER .B3 31 . 
4 12 00338 BNEQ = 31 : 

30 AE 28 8 0 MOVL 315 TYPECODE : 

E 04 00341 31$: cCLRL <(SP : 

57 34 AE DO 0034 MOVL §_TYPECODE, R7 : 

57 DD 0034 PUSHL 7 : 

000000096 0 FB 00349 CALLS #2, DBGSMAP_DTYPE_CLASS ; 
03 A 3 0 30 MOVE RO, 3(R3) : 

02 A 0 4 MOVB =? 2(R3) : 

01 57 D4 5g CMPL sR? #1 : 

14 13 00358 BEQL 528 ; 

29 57 Di 0035D CMPL  =sR7?, #41 : 

OF 13 0 6 BEQL 328 : 

22 7 4 6 CMPL = R7, #34 : 

0A 13 0036 BEQL 528 : 

2A 57 D1 00 67 CMPL = R7,, #42 : 

05 13 0036A BEQL 528 : 

28 57 01 0036C CMPL R7, #40 : 

26 if 00 of BNEQ 36$ : 

63 2c AE B80 00371 2 MOVW BITSIZE, (R3) : 

ec 11 00375 33$ BRB 5 ; 

03 D1 00377 CMPL  FCODE, #3 : 

18 12 0037A BNEG 35$ ; 

53 DD 0037C¢ PUSHL R3 : 

58 DD 0037E PUSHL  TYPEI : 

000000006 00 08 FB 00380 CALLS #2, DBGSSTA_TYP_DESCR : 
9E 8F 02 A’ 91 00387 CMPB ¢R3), 158 : 

15 F 0038C BNEQ 7$ ; 

02 a3 28 9 00385 MOVB #40, 2(R3) : 

OF 11 0039 BRB 37$ F 

02 A3 B4 00394 358: CLRW =. 2(R3) : 

50 2c AE 07 C1 00397 36$:- ADDL3 #7, BITSIZE, RO ; 
51 50 08 C7? 0039¢ DIVL3 #8. RO, R1 ; 
63 51 BO 003A0 OVW RI, (RS) ; 

54 DD 003A3 37$ PUSHL DECLTYPE : 

20 AE DD Boag PUSHL ALPTR : 

00000000" EF 9F 003A8 PUSHAB DEGSGL CONVERT_TOKEN ; 

000000006 00 03 FB OO3AE CALLS DBGSEVAL_LANG_OPERATOR 3 
1c AE 50 00 00385 MOVL +e ; 

OC AE 18 AO DO 00389 MOVL  24(R ROD : 

09 000000006 00 91 00385 CMPB BG$GB_ * LANGUAGE, "9 ; 

i 1 boae BNEQ 3 

58 D O3¢7 TSTL TYPEID ; 

1A 13 003C9 BEQL 3 

04 38 pi 00 CB CMPL CODE, #4 F 

1 O3CE BNE : 

53 0c BE 0 00300 MOVL § @VALADDR, R3 ; 

53 DD 003D4 PUSHL F 

58 DD 00306 PUSHL ; 

000000006 00 02 FB 0308 CALLS agp “DBGSENUm POS ; 
08 AE 50 DO 0030F MOVL _VAL ; 

08 11 6 E BRB ; 

53 0c ef DO 003E5 38$: § MOVL H ALADDR. RS ; 

08 AE BO 0 E MOVL ECK ; 

08 A542 9F OO3ED 39%: § PUSHAB BASS ESUBULC TORI ; 

9E C AE D1 003F1 CMPL CHECK_VAL, @(SP)+ ; 

OA 19 003F5 BLSS 40s ; 

Oc A542 OF 003F7 PUSHAB 12(R5)CSUBVECTOR) ; 


GPARSER 1 so 1984 02:1 AX-11 Bliss-32 V4.0-74 Page 353 
-Sep- 3 3 ad s- age | 
mi 12-808 -1 3b 05:19:43 DEBUG. SRCJDBGPARSER.B32; 1 9°43), 
9E 0c AF D1 38 CMPL CHECK VAL, a(SP)+ ; 
¢ FF BLEQ : 
Oc A542 OF 40 40$:  PUSHAB 12(R5)CSUBVECTORI + 1110. 
95 pp 4 PUSHL asp} : 
08 A542 9F 004 PUSHAB 8(RS5)CSUBVECTOR + 1110) 
9E DD 0040B PUSHL a(SP)+ : | 
10 AE DD 004 PUSHL CHECK VAL + 1110) 
01 AD OF 41 PUSHAB 1(SUBSCR_COUNT) : | 
04 DD 0041 PUSHL #4 : 
00028688 8F DD 0041 PUSHL #165515 : | 
000000006 00 06 FB 0041 CALLS #6, LIBSSIGNA ; | 
03 00000000' EF 422 41$: CMPL TERMINATOR SCODE, #3 : 1111) 
43 4 BNEG 45$ 
0D 10 AE €9 00428 BLBC THIS _SUBSCR_IS_RANGE, 42$ + 1112) 
00028F 08 F DD 0042F PUSHL #167888 3 | 
000000006 00 1 FB 00435 CALLS #1, LIBSSIGNA ; 
10 AE 1D 0043 42$: MOVL #1, THIS SUBSER 1$_RANGE + 1112 
6E ; DO 0044 MOVL R3, LOW_RANGE VAL 3 1112 
61 6A 13 £0 0044 BBS #19, (RTO), 50$ + 1112 
02 AA 08 88 00447 BISB2 #8, 2(R10) + 1112 
51 01 CE 00448 MNEGL #1, I + 1112 
18 11 DO44E BRB 44$ ; 
50 51 14 €5 00450 43$: ULL3 #20 ! RO + 1113) 
08 A042 SF 00454 PUSHAB 8(RO)(SUBVECTOR : 1113) 
6042 9F 00458 PUSHAB (RO) CSUBVECTOR : 
9E 9E DO 00458 MOVL  a@(SP)+, a(SP)+ : | 
OC A042 9F 0045 PUSHAB lecroyts UBVECTOR] + 1113) 
6042 9F 0046 PUSHAB (RO) CSUBVECTORI ; 
9E 9 DO 0046 MOVL  a@(SP)+, a(SP)+ ; 
E4 51 3 F2 00468 44$ AOBLSS SUBSCR.COUNT, I, 43$ + 1112 
A 11 0046C BRB 50$ $1117 
17 10 AE €9 0046E 45$:  BLBC ‘THIS _SUBSCR_IS_ RANGE. 47$ + 1115 
53 gf D1 0047 CMPL LOW_RANGE_VAL, 3 1115 
D 15 0047 BLEQ 4 F 
00028F08 8F pp 00477 PUSHL #167688 ; 
000000006 00 01 FB 0047D CALLS LIBSSIGNA ; 
10 AE D4 00484 46$:  CLRL THis. SUBSCR_ is _RANGE + 1115 
9 11 00487 BRB 18s > 1115 
6 DO 00489 47$:  MOVL  R3 Low, RANGE VAL : 1116 
OF 6A 1 a 0048C 48$: BBC #i$ 49$ + 1117 | 
08 A542 9F 00490 PUSHAB HET vécT : 1117 | 
9E AE DO 00494 MOVL LOW _RANGE VAL a(SP)+ ; 
OC A542 OF 00498 PUSHAB TecR3) ESUBVECT j : 1117, 
9€ 5 po 004 9¢ R ; 
6542 OF O049F 498 PUSHAB (R5) ESUBVECTOR] > 1118) 
9E 04 AE DO 004A2 MOVL LOW_RANGE VAL, a(SP)+ : | 
59 6 OO4AG INCL SUBSCR C OONT : 1118 | 
FES 31 0448 50$:  BRW : 1089 | 
1F Ab 9 90 004AB 51$: § MOVB = SUBSCR COUNT 31 (NODEPTR) : 1119 
59 1B Ab 08 00 FD O4AF CMP ZV #0, #87 27(NODEPTR), SUBSCR_COUNT ; 1119 
3a 00000000° EF £8 bcB? LBS Srenaote SUBSCR, 53% > 1120) 
7E 18 AG OA O4BE MOVZBL 27 (NODEPTR), -(SP) : 1120. 
oi DD 4c PUSHL F | 
00028EAO BF DD 00464 PUSHL #167584 ; 
000000006 00 03 FB DACA CALLS LIB$SIGNAL ; 
3 6A 13 €0 00401 52$: BBS ni, R10), 53$ > 1121 


GPARSER 16-50 Sep-1 1 AX-11 Bliss-32 V4.0-74 Page 354 nT 
it 1 ~ep-1 3b 6: 19: ¥3 DEBUG. S taht DBGPARSER.B32;1 a > Vv 
02 AA 01 88 00405 BISB2 2(R10) 3 1121) 
24 Ab DD 00409 PUSH it DEPTR) + 1122. 
000000006 90 z FB 4n¢ CALL DBGSSTA_ TYPEF CODE : 
: D4 cee CLRL : 1132 
24 AB DD 004E PUSHL SCE) ora) + 1122. 
38 pp 4EB PUSHL CODE F 
7E 6 7D 004E OVO #6, -(SP) + 1122 
04 AC DD O04F PUSHL PRIMPTR : 
C851 CF 06 FB O04F CALLS #6, DBGSBUILD_PRIMARY_SUBNODE : 
04 004F8 53S: = RET 3 1122, 


; Routine Size: 1273 bytes, Routine Base: DBGSCODE + 3323 


- 
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GPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 v4.0-74 Page 355. 
nit 1enep= ihe 95:19:83 | HOSA Shi sseze heel" 245., age 4a)” 
ROUTINE GET_SUBSTRING (PRIMPTR, DSCADDR) : NOVALUE = | 


FUNCTION 
This routine grchs up a substring reference. 
For example, in FORTRAN, if a variable X is declared CHARACTER*n 
then we want to al low xCi:j), where i and j represent the 
peainn ae and ending character positions. 
In PASCAL, if a variable X is declared PACKED ARRAY[L1..N] OF CHAR 
then ye want to allow subscripting XCi] or ranged subscripting 
XCi:jJ to get at substrings of X. 


This routine gets called from the GET_SUBSCRIPTS routine, at 
the point where we discover that what we have is not an 
array, but is a string. 


<o 


The expression parser is called to pick up the first subscript. 
If the terminator "':"’ is encountered then the expression parser 
is called again to pick up the upper bound. 


These substring bounds then get translated into the PRIM_OFFSET 
and PRIM_LENGTH fields of the Primary Descriptor, and the 
poner flag is Lit to indicate that a substring selection has 
aken place. 


INPUTS 
PRIMPTR = A pointer to the Primary Descriptor for a string 
about to be subscripted. 
DSCADDR = A pointer to the string descriptor representing 
the string to be subscripted. 


5 lek ee ee 


OUTPUTS 
The PRIMPTR Primary Descriptor is changed to include the 
substring information. 


BEGIN 
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P 
PRIMPTR: REF DBGSPRIMARY 
DSCADDR: REF DBGSSTG_DESC; | 


LOCA 


PAPAS MIU 


L 
HIGH VALUE, 


LOW_ VALUE 

NODEPTR: REF DBGSPRIM_NODE, 
SAVED RADIX, 

VALPTR: REF DBGSVALDESC; 


Subscript value 

Subscript value 

Pointer to Primary Subnode 
jenperary to save radix 
Pointer to a Vaiue Descriptor 


meme eee 


WRI O OOD NOA UNE WN OOD NAME WN OOD NA UE WN OOONOAUE AN "OOOO 


! Temporarily set the radix to decimal. Then call the Expression Parser 
to pick up the lower string bound. 


SSN NNO OO 
me 


EXPRESSION RADIX = DBGSK_ DECIMAL; 
TR = DBGSEXPRESSION PARSER (FALSE, . SUBSCRIPT_TERM_TBL); 


ee cc ee ee ee ec ee ee ce ce cB ee et ee ee ed ed ed ed ae wd 
ee ee ee re ee ee ee ce me ee a em ee ee ee ee ee ed ee ed od ed wd 
ee ce ee ee ce ee ee ce ee ee a a ec ee ee ee cD DD ed ed ae ed wd 
BRS Ree SSIS ARAN SSH SO te OS See ee SSeS 
MO OOO VUES WDR 0 OD NOUS WN 0 OD NOUS WO DONO UVUS WN" OOOWNOuUfSWN—O0@W 

eee ee ee ee ee ee ee eee SS | 
ee ee ee ee ee a me ee ee ee em De ed nd ed od od wd 
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GPARSER 16-sep-1984 0g: 10:13 Ax-11 Oi ise V4.0-7 


4 Page 356 
sf 14-Sep-19 DEBUG. SRC JDBGPARSER B32; 1 9° 4a) 


: pee the terminator code, If there was no terminator, (the 
nput Line jus ended), signal an error. If the terminator was 


! a comma, this is also an error = we only allow the colon or 


E 
4 ' 
5 ' 
' 
89 ; the closing subscript in this case. 
89 IF; TERMINATOR CODE EQL TOKENSK_TERM_NONE 
91 SIGNAL (DBG$_MISCLOSUB) ; 

3 IF .TERMINATOR_CODE EQL TOKENSK_TERM_COMMA 
9 THEN 

94 

95 


SIGNAL (DBGS_SYNERREXPR, 1 wit BYTE (ZASCIC ',")); 
4 CHARPTR = .CHARPTR + , TERMINATOR_LENGTH; 
Convert the subscript value to longword integer. 


LOW_VALUE = CONVERT_TO_INTEGER (.VALPTR); 


01 ! Check for ‘':"* terminator. This indicates we also have to pick 
0 up the high value. 


IF _;,TERMINATOR_CODE EQL TOKENSK_TERM_COLON 
BEGIN 


Pick up another expression for the high value. 


! Check for any of end-of-line, comma, or colon. These are all 
errors here. 


If _;,TERMINATOR_CODE EQL TOKENSK_TERM_NONE 


SIGNAL (DBG$_MISCLOSUB) ; 
IF, TERMINATOR, CODE EQL TOKENSK_TERM_COMMA 


SIGNAL (DBG$_SYNERREXPR, 1, UPLIT BYTE (ZASCIC *,")); 
IF TERMINATOR, CODE EQL TOKENSK_TERM_COMMA 


SIGNAL (DBGS_SYNERREXPR, 1, UPLIT BYTE (ZASCIC *:')); 
CHARPTR = .CHARPTR + . TERMINATOR_LENGTH; 


Convert the value descriptor to an integer. 
HIGH VALUE = CONVERT_TO_INTEGER (.VALPTR); 


REUNSS SONAR SOWNA ARUN OSRIE REO Dee ae 


B= SSS 


No high value present - same as low value. 
ELSE 
HIGH_VALUE = .LOW_VALUE; 

! Signal an error if the range is reversed. 


< 
ee me ee ee ee ee ee ek ek a nd nd td 2d 2d = wd = wd wd wd 
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AX-11 Bliss-32 V4.0-74 
DEBUG.S Re DBGPARSER.B3 
! 
IF .LOW VALUE 3 1 
OR .HIGA_VALUE GTR tate fe LENGTH) 
OR .LOW VALUE GTR ten VALUE 
THEN 
-HIGH_VALUE, 


SIGNAL (DBG$_SUBSTRING, 3 M: VALUE, 
-DSCADDRCDSC Sw “LENGTHI) 


Signal an error if the values are too large to fit in a Primary. 
iF .LOW_VALUE GTR %X'7FFF* 


$1 GNAL(DBGS_ILLOFFSET, 1, .LOW VALUE); 
IF_(1#,HIGH_VALOE-.LOW_VALUES GTR &x'7FFFS 


HEN 
SIGNAL (DBG$_ILLSUBLEN); 

Modify the primary to indicate the substring information 

NODEPTR = .PRIMPTR CDBGSL yee 


PRIMPTR COBGS$V_DHDR_SUBREF 
PRIMPTR [DBG$W-PRIM-OFFSET] = .LOW. VALUE; 
PRIMPTR CDBGSW-PRIM-LENGTH] = i + “HIGH. VALUE = .LOW_VALUE; 
NODEPTR CDBGSL-PNODE_RELOC) = “1; 
END; 
PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
C 01 O33CF P.AYN: ASCII <1>\,\ 
C 01 03301 P.AYO: .ASCII <1>\.\ 
A 01 3303 P.AYP: .ASCII <1>\:\ 
-PSECT DBGSCODE,NOWRT, SHR, PIC.O 
OOFC 00000 GET_SUBSTRING: 
.WORD Save R2,R3,R4,R5,R6,R7 
57 00000000 ef 9 9002 MOVAB P.AYN, R7 
56 9000000 G 9E 000 MOVAB LIBSSIGNAL, R6 
33 0000000' EF 9 0019 MOVAB EXPRESSION_RADIX, R5 
2 65 D 901 MOVL § EXPRESSION-RADIX, SAVED_RADIX 
6 A DO OO01A MOVL #10, EXPRESSION RADIX 
20. AS DD 0001D PUSHL SUBSCRIPT_TERM_TBL 
7E D4 000 CLRL. = =( SP) 
cf F 90 CALLS #2, DBGSEXPRESSION_PARSER 
4 D 0 MOVL RO. VALPTR 
65 DO O002A MOVL § SAVED_RADIX, EXPRESSION_RADIX 
28 «AS OD 00 TSTL TERMIRATOR_ CODE 
9 1 BNEQ Ss 
00028690 8F DD PUSHL #167568 
66 1 FB CALLS #1, LIBSSIGNAL 
01 28 AS p 1$ CMPL TERMINATOR_CODE, #1 
9b 2 f BNEQ 2 
DD 00041 PUSHL R 


1 


Page 337 
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GPARSER 18. Sep-1984 AX-11 Bliss-32 V4.0-74 Page 358 C 
ype 12-Sep-1984 95: 19; ¥ DEBUG. SRC Saceansén 08951 9° 4a) \ 
1 oO 4 PUSHL 3 | 
000289E2 H D rk PUSHL 3 j 
66 3 F 48 CALL LIBSSIGNA ; ; 
FBF4) CC 2c a5 OC 4E 2: ADDL TéfimINATOR oLENGTH, CHARPTR : 1129 ; 
4 0D 4 PUSHL VALPTR + 1129 ; 
EC26 cf 1 Ff © CALLS CONVERT_TO_INTEGER ; ; 
; 9 Dd B MOVL 4 LOW_VALOE ~ 3 | ; 
0 28 A p 3 cHPL TERMINATOR, CODE, #3 + 1130 : 
52 és 06 064 MOVL EXP PRESSION RADIX SAVED_RADIX + 1131 ; 
6 A D0 00067 mov = #10 XPRESSION RADIX ; 1131) i 
20 AS DD QO06A PUSHL UBSCRIPT. TE i ‘TBL + 1131 : 
7 df 060 CLRL Bt 5) : | : 
CD68 cf O06F CALLS #2, D DBGSEXPRESSION_ PARSER 3 | : 
4 i) 074 MOVL RO, VALPTR 3 | | 
65 DO 00077 MOVL SAVE D_RADIX EXPRESSION. RADIX + 1131, : 
28 AS 05 0007A TSTL | TERMINATOR_COD + 1131 ; 
; 09 12 0007D BNEQ 3 | : 
00026E90 8F DD 0007F PUSHL #167568 + 1132 : 
66 01 FB 90085 CALLS ai LIBSSIGNA ; ; 
01 28 AS D1 00088 3$: CMPL ss TERMINATOR_ CODE, #1 + 1132 ; 
of 12 0008C¢ BNEG 4$ ; | : 
02 A? 9F O008E PUSHAB P.AYO > 1132. : 
ot DD 00091 PUSHL ai ; : 
000289E2 8F DD 00093 PUSHL 66370 ; : 
66 03 FB 00099 CALLS a3° LIBSSIGNA ; | ; 
01 28 «ASO 9909¢ 4$: CMPL =‘ TERMINATOR “CODE, rT : 1132 ; 
Of 12 QOOA0 BNEQ i§ 3 i 
04 A? OF O0Ag PUSHAB P.AYP + 1132 ; 
ot DD 000A PUSHL : ; 
000289E2 F DD Q00A7 PUSHL 3 i 
66 03 FB OOAD CALL LIBSSIGNA ; : 
FBFG =o. 2c a5 CO 00080 5$: ADDL TERMINATOR SLENGTH, CHARPTR : 1132, : 
54 DD 00086 PUSHL VAL > 1133, : 
EBC4 «CCF 01 FB 00088 CALLS "Convert TO_INTEGER ; ; 
52 50 pO 00080 MOVL Ad: HIGH_VACUE™ ; ; 
11 000C0 BRB : 1130. : 
52 D boce gs: MOVL Ow. ome: HIGH_VALUE é 1133, ; 
DS O00CS 7S: TSTL OW" VALUE : 1134) : 
0d 15 000C7 BLEQ ; | : 
52 08 BC 10 0 ED 00C9 CMPZ2V #0, #16, @DSCADDR, HIGH_VALUE > 1134, : 
g OOCF BLSS : | ; 
52 D1 00001 CMPL LOW VALUE. HIGH_VALUE : 1134) : 
1 13 9004 BLEQ $ ; | : 
7E 08 C 00006 8s: MOVZWL @DSCADDR, -(SP) $1134 ‘ 
DD OOODA PUSHL HIGH VALUE + 1134 
DD BeOE PUSHL LOW_VALUE 3 : 
DD DE PUSHL ; : 
5 00028008 eS EBs 7 2 
00007F FF Ht 3 of £5 9$: CMPL Ow NVALUE. 18S 767 3 1135 : 
p 5 O00F BLEG F | : 
DD O00F PUSHL LOW_VALUE > 1135 
1 DD OOOF PUSHL : 
000280F0 8F OD 000F6 PUSHL #164080 ; 
6 3 FB FC CALLS #3, LIBSSIGNAL ; 
D FF 10S: INCL =6R + 1135 


alls ER 


; Routine Size: 


28 7FFF 3 

000280F8 : 
04 A 

18 


12 AO 5 


302 bytes, 


hata 
o} ! 1 
15 $01 
DD 001 
F 1 
Dd 114 118: 
ie 
80 00120 
ie 
6 0120 
381C 


4 02:10: AX-11 Bliss 
382 95:19:43 DEBUG. SR hiSgae 

MOV 32767(R3), RO 

CMPL = R2,, RO 

BLEG 

PUSHL 64088 

CALLS #1 mbiBSSIGNAL 

MOVL PRI 

MOVL  24(RO), NODEPTR 

BISB2 #2, 4(RO) 

MOVW  LOW_VALUE, 16(RO) 

SUBW3 LOW” “WAL LUE 18(RO) 

ANE GL #1,720¢ ues TR) 


paRséR 03951 


Dee Se Se Se Ge Be Ge Se Se Be Se 


+ tll ER 15-Sep-19 4 06:10:13 Ax-1 


1 Ot igen re 3 .0° 736 Page 340 
44-Sep-1984 DEBUG. SRC JDBGPARSER.832;1 (45) 


1} 16 i) 5 ! ROUTINE OPERATOR_TO_RESTORE_RADIX = 

311 4 11 r 1 ! FUNCTION 

31127 11 28 1 ! This routine returns the Operator Lexical Token Entry for the 

711 so 11 § 1 : operator which will restore the currently set expression radix. 
311281 11 y 1 : t is used in the processing of the lexical goeraters ZDEC, ZHEX, 
3711 . 11371 #1 ‘ OCT, and %BIN. If the current radix is decimal, for example, 

311 11 if 1 ' when the ZHEX operator is encountered, then the decimal radix must 
311 113735 1 ; be restored when the range of the ZHEX operator ends. Consider 
311285 11374 «(1 ! this example: 

311 11375 (1 ! 

311 11376 1 ! 10 + ZHEX (20 + 30) = 40 

11288 11377 1 ‘ 

311289 11 4 | 1 ! Here 10 and 40 are interpreted as decimal numbers while 20 and 30 
311290 11379 1 ! are treated as hexadecimal numbers. When the ZHEX operator is 
311291 11380 1 : encountered, this routine is called and returns the ZDEC operator. 
311 4 11381 1 ! The ZDEC operator is pushed onto the operator stack and the radix 
31129 11 S¢ 1 ! is then set to hexadecimal. When the minus sign is encountered, 
3112946 113835 1 ‘ it forces evaluation of the stacked ZDEC operator which restores 
i} +4 11388 ; the radix to decimal. | 
311297 11 4] 1 } The current radix value is stored in and picked up from the OWN 
3% oS 1 Hi : variable EXPRESSION_RADIX. | 
311300 11389 1 ' INPUTS | 
HS tO pee ite 
11308 11 9 1 i OUTPUTS 
11308 113935 1 ; The return value of this routine is the address of the Operator 
311305 11394 1 : Lexical Token Entry for the lexical operator which 
311306 11395 1 : restores the current value of EXPRESSION_RADIX. 

311307 11396 1 ! 
311308 11397 1 
311309 11398 BEGIN 
Nt 13 
3711 \¢ 11401 ! Based on the current radix value, return the lexical operator which 
31131 11e86 ' will restore that radix value when popped from the operator stack 
311314 1140 !' and evaluated. 

11315 11404 ' 

311316 11405 IF .EXPRESSION_RADIX EQL DBGSK_DECIMAL THEN RETURN RADIX_OP_DEC; 
311317 bes IF .EXPRESSION_RADIX EQL DBGSK_HEX THEN RETURN RADIX_OP_HEX; 
311318 1140 IF .EXPRESSION_RADIX EQL DBGSK_OCTAL THEN RETURN RADIX_OP_OCT; 

‘1 ps If .EXPRESSION_RADIX EQL DBGSK_BINARY THEN RETURN RADIX_OP_BIN; 
511321 11410 

3 ! Any other current radix value is an interna error. 

1 1763) A h di lue i int lL DEBUG 

311326 11218 $DBG_ERROR( *DBGPARSER\OPERATOR_TO_RESTORE_RADIX"); 

a1i3 5 11414 RETURN 0; 

311326 11415 

311327 11416 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


besen-t9ee 2:10:13 YaKetY Ligsc3z v4.0-763 | Page 361 


1 
1 

? ef 2f 2 $3 HH ze ¢} 20 52 cf i ii ae P.AYQ: .ASCII] \#DBGPARSER\<92>\OPERATOR_TO_RESTORE_RAD\ 
49 F 


eASCII \IXN 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0004 00000 OPERATOR = [OARESTORE Pay ee 


TW 3 1136) 

0 ' €F 9 MOVAB aah ix OP_DEC : | 

3 itdaittdse i a6 0098 mOVL EXPRESSION. Sepik. R1 + 1140 
4 12 0018 BNEQ 1$ : 
50 62 9E 0 1 MOVAB RADIX_OP_DEC, RO : 

04 O18 RET : 

10 51 D1 00019 18 CMPL RI, #16 + 1140. 

05 12 Ooi¢ BNEQ  2$ ; 

50 17. A2 3 a0 MOVAB RADIX_OP_HEX, RO : | 

08 51 01 99 28 CMPL =soR1, #8 + 1140 
05 12 000 6 BNEQ 3$ : 

50 22 A2 YE 000 MOVAB RADIX_OP_OCT, RO : | 
04 0002¢ RET : 

02 51 D1 00020 3$ CMPL =soaR1, #2 + 1140. 
05 12 00030 BNEQ 4$ : 

50 33. a2 OSE 0032 MOVAB RADIX_OP_BIN, RO : | 

04 000 RET F | 

30A9 ss C2sOOF 90037 4$ PUSHAB P.AYQ 5 1141 

1 DD 00038 PUSHL F | 
00028362 8F OD 9003p PUSHL #164706 F 
000000006 00 93 FB 0004 CALLS #3, LIBSSIGNAL : 

0 D4 0004A CLRL —_ RO + 1141 

04 0004C RET + 1141 


; Routine Size: 77 bytes, Routine Base: DBGSCODE + 394A 


k 9 
vOo-000-" 1eo$ep=tobe 93:19:50 EOEaUG. SacSbaceaNsEn. 659; 1 Pane 8s 


311 11417 1 ROUTINE PATHNAME_TO_PRIMARY(PATHDESC, SUBSCR_DESC, PLIPTR, 

711 11418 1 SAVED_PATHDESC, ARRAY.FLAG) = 

311331 11419 1 ! 

311 ¢ 11420 1 ' FUNCTION 

311 11421 1 ! This routine builds a Primary Descriptor Root Node in temporary 
311 114 § 1 : memory and returns a gotater to that descriptor. The symbol for 
311355 114 1 ! which the descriptor is built is identified by a Pathname Descrip- 
311 11424 1 ! tor. This routine passes the Pathname Descriptor to the GETSYMBOL 
3711 11425 1 } routine to get the symbol'’s SYMID, and then builds the Primar 
311538 114 § 1 ! Descriptor from that SYMID. For data items, the symbol's FCODE 
311339 114 1 : and TYPEID (which identify the data type) are also retrieved and 
it} » 13¢ 3 ! } added to the Primary Descriptor. 

311 § 114350 1 : After the Root Node has been build, DBGSBUILD_PRIMARY_SUBNODE is called 
311 11431 1 : to build a ere Descriptor Sub-Node for the symbol. This means 
3113544 114 ¢ 1 ; that the Primary Descriptor is complete when PATHNAME_TO_PRIMARY 
311345 114 1 ; returns unless further ytd or other qualification causes 
311346 VieRe 1 : additional Sub-Nodes to be appended later. 

311347 11435 1 ! 

311348 114 $ 1 ! INPUTS 

311349 114 1 ' PATHDESC = The address of a Pathname Descriptor which defines the 
311350 11438 1 ‘ symbol for which a Primary Descriptor is to be built. 
311351 11439 1 ; SUBSCR_DESC = Some languages collect their subscripts as they 
311326 11440 1 ! pick up the Primary, and do not apply them until the 
21135 11441 1 i end. In this case, SUBSCR_DESC is a data structure 
311354 11e26 1 : containing the saved subscripts. 

311355 11443 1 ! PLIPTR = In a PL/I exression of the form A->B, we first save away 
311 28 11444 1 ! then Primary for “A'’. This Primary is in PLIPTR 

31135 11445 1 i and must be appended to the beginning of the Primary 
311358 1166 1 ! we now build. 

311359 11447 1 ‘ 

711 11448 1 ! SAVED_PATHDESC: PTHSPATHNAME - 

31136) 11449 1 } This is an area of storage in which we can save 

3711 é 11450 1 ! auey a copy of the pathname. This is used to make 

21130 11451 1 ! pat names sticky in expressions such as 

£11368 11288 _— 

711 66 11454 1 i ARRAY_FLAG = An optional fifth parameter, which, if present, 

3711 11455 1 ! indicates that this routine was called as part of an 
311368 11456 1 : array subscripting operation. This is used in BASIC, 
311369 11457 1 ! where there may be two variables A, one an array and 
311370 11458 1 ‘ one not, and it is determined from context which is 
311371 11459 1 i meant. this flag is just passed along to GETSYMBOL so 
31137 11460 1 } that it can resolve the ambiguity properly. 

31137 11461 1 ! 

311374 11ee¢ 1 ' OUTPUTS 

311375 11463 1 : A Primary Descriptor for the symbol specified by PATHDESCR is built 
31137 11464 1 ! and its address is returned as the routine value. 

31137 11465 1 ! 

311578 11698 1 

311379 1146 BEGIN 

311380 11468 

311381 1168) P 

311 3s 11470 PATHDESC: REF PTHSPATHNAME ! Pointer to input Pathname Descriptor 
31138 11471 SAVED_PATHDESC: REF PTHSPATHNAME | ! Saved copy of pathname. 

iM a rere SUBSCR_DESC: REF SUBSCRSDESC; ! Pointer to subscript information 


9 
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vit 13-808- 1382 95:19:43 DEBUG. SRC sacPansén 63551 . (46) | 
311 11474 BUILTIN 
311 11475 ACTUALCOUNT; 
311 os eee 
31138 1147 LOCAL 
311390 13228 ARR_FLAG, ' TRUE if expecting an array. 
311 4 1147 BITSIZE ' Bit Length 
711 é 11480 DESCR: REF DBGS$STG_DESC i inused escriptor 
31139 11481 DUMMY, ! Unuse ot  perencter 
311594 114 ¢ DTYPE ! 
711395 114 EXPECTED_SuBS, | Fount of y Ee number of subscripts 
311596 11484 FCODE, ! The data 9 Simtb format code for symbo 
311397 11485 INDEX, ! inges into ist 
311398 114 § KIND, ! RST ones © “4 for current symbol 
311399 114 LEN ! Byte nee 
711400 11488 NODEPTR: REF DBGSPRIM_NODE, i Pointer to Primary sub-node 
311401 11489 PATHSTRING, ! Pointer fo pathname Counted ASCII 
abe 11490 : string--used for messages 
31140 11491 PATHVECTOR1: REF VECTORC,LONG), ! Pathname vector 
311404 1 ye38 PATHVECTOR2: REF VECTORL,LONG], |! Pathname vector 
311405 1149 PICKED_UP_SUBSTRING, ! Flag for when we picked up a substring 
311406 11494 PRID: REF PRIDSENTRY, ' Pointer to Predefined sGene Fter Entry 
311407 11495 PRIMPTR: REF DBGSPRIMARY, ' Pointer to vr mery Descriptor 
311408 1138 E. ! Scope where symbo ues looked up 
311409 1149 SCOPE gSTATES ! Kind of scope! ger 3 
311410 11498 SUBSCR_I ' Index into SUBSC R. DESC 
311411 11499 suBvEC cTOR ' Pointer to subscript vector in 
1ielg 11500 REF QGSPRIN NODE_SUBS, ! rimary Descriptor Sub-node 
31141 11501 SYMID: REP R STSENTRY, ! SYMIDY (Symbol. ID) for current symbol 
311414 11206 SYMID1: REF RSTSENTRY. ' scratch SYMID (Symbol ID) 
311415 1150 SYMID2: REF RSTSENTRY ' scratch SYMID (Symbol ID) 
311416 11504 SYMID_VECT: VECTORLDBGSK _PATHNAME_S SIZE], ! Vector of saved SYMIDs 
311417 11505 TOOFEQ@SUB, '“Flag saying too few subscripts 
311418 11506 i were supplied. 
311419 11507 TYPCOMPLST: REF VEC Fort. LONG], 
311420 11208 TYPEID: REF RSTSENTRY; ! The Type ID for the symbol's data type 
311421 11509 
311656 11510 
3114 11511 ! If the PLIPTR field is not zero then we already have part of the 
311426 \12i¢ ! Primary. 
211425 1151 ! 
311426 11514 IF .PLIPTR NEQ 0 
311427 11515 THEN 
311428 11516 pe ein 
311429 11517 adie 444 = 443i 
7114 11518 MPTRCDBGSL PRIM BLINK); 
1163) 11318 WOE TR Sate! PNODE EVAL] = TRUE 
114238 11521 If .PATHDESCCPTHSB_PATHCNT) GTR 1 
311434 115 § THEN 
311435 115 
11638 ig : Save away this pathname. 
311438 i § CHSMOVE (DBGSK_PATHNAME_SIZE, .PATHDESC, .SAVED_PATHDESC) 
311440 115 3 LSE 
311441 115 IF .SAVED_PATHDESCCPTHSB_PATHCNT) GTR 1 
311442 11530 THEN 


vos-000"" 1erSep-1986 13:17:50 — EDEBUG. SRCSDBGPARSER 039; 1 Page 28) 


311443 BEGIN 
GAG LOCAL 
ai I; 
si } Merge the previous pathname into this one. 
449 PATHVECTOR1 = PATHDESCCPTHSA_PATHVECTOR); 
50 PATHVECTOR2 = SAVED_PATHDESCEPTHSA_PATHVECTOR); 
51 «SAVED _PATHDESCCPTHS$B_PATHCNTJ=1; 
3 4 DECR J FROM .P THDESC(PTHSE TOTCNTJ-1 T0_0 DO 
5 4 PATHVECTORIE.1¢ J = -PATHVECTORIC.JJ; 
e¢ 4 DEC FROM .I- 19 dO 
5 PATHVECTORIL.JJ = ~PATHVECTOR2E J] 
56 PATHDESCCPTH$B_TOTCNT] = .PATHDESCLCPTH$B_TOTCNT) + .1; 
57 PATHDESCCPTHSB_PATHCNT) = .PATHDESCCPTHSB_PATHCNT) + .1; 
58 ! <<< INVOCNUM 
59 END; 
60 END 
61 
6¢ 5 ELSE 
rt, : BEGIN 
65 ! Allocate space for the Primary Descriptor and fill in the descriptor 
: header fields and sub-node Links. 
2 PRIMPTR = DBGSGET “IVPed = BGS PRIMARY SIZE); 


af Laid bs DBGSB_DHOR_ TYPE = DBGSR PRIMARY DESC; 


} 
| 
G$W- “LENGT AL; 
PRIMPTREDBGSL_PRIM_FLINK] = PRIMPTR(DBGSA_PRIM_FLINKJ; 
PRIMPTRCDBGSL_PRIM_BLINK) = PRIMPTRCDBGSA_PRIM_FLINKJ; | 
Save away copy of first pathname that we see. | 
iF .PATHDESCCPTHSB_PATHCNT) GTR 1 | 
CHSMOVE (DBGSK_PATHNAME_SIZE, .PATHDESC, .SAVED_PATHDESC) 

a SAVED_PATHDESCCPTHSB_PATHCNT) = 0; | 


AAAAAAAAOP OUI ww Fld et et ek et 


DBGSGL_CURRENT_PRIMARY = .PRIMPTR; | 


' Call GETSYMBOL to 9ft the KIND and SYMID for the symbol. 
! We pass along the flag saying whether this symbol was seen in | 

? sypecc tate form = getsymbol can use that to resolve ambiguities 
. n ° ! 
! This also gives the scope where the symbol 
! was looked up and we save that in the Primary Root Node. 
} Then case on the KIND to decide what to do next. 
IF 


; COMPONENTS, IN PATHNARE 
gg ARR-FLAG = -SUBSCR_DESCLO, SUBSCRSB_SUBCNT GTR 0 


ARR_FLAG = ACTUALCOUNT() GTR 4; 
DBGSSTA_GETSYMBOL(.PATHDESC, SYMID, KIND, SCOPE_STATE, SCOPE, .ARR_FLAG, FALSE); 


kk tt at a tk a tk et ot on St = Ss SS SS os SS SS SY SS SS SS ns ss ss SS 
ee em et ee a a ad a ek a a ek kd at ot 2k ot ot ot 2 2 2 = 2a 2 2 2 2 a st a 2 1 SS 


yo oF oF oF oF at ot nt nt et ot ot tt de dk de ae dt ae et et he et ot et 


oO o © O00 090000909 CO COCO O89 SI SIN NINN SIOO OO 
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ee ee ee ee ae ae ee ee i ee ae ee ee a ee ee ee ee el ed ee 
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311 80 11 $ PRIMPTREDBGS$B_PRIM_SCOPE_STATE] = .SCOPE_STATE; | 
1) 4 1} 4 PRIMPTRLDBGSL_PRIM_SCOPE] = .SCOPE; 
£11808 11591 SELECTONE .KIND OF | 
311504 11 3 SET 
311505 1159 
311208 11594 
31150 11595 ! Handle the case where the symbol is not found in DEBUG's symbol é; 
214208 Vee } table (i.e., the RST). Signal the appropriate error message. 
311510 11598 CRSTSK_INVALID]: | 
311511 11599 BEGIN 
121g 11600 
31151 11601 ! First check for Predefined Identifier reserved by the language. | 
211514 V1006 ! Note: We do this after we are sure that the symbol is not in | 
311515 1160 : the symbol table. In PASCAL you may redefine the predefined 
311318 11604 : symbols. Currently, PASCAL is the only language where we 
31151 11605 : have predefined identifiers. FORTRAN has them but they are 
311518 11606 ! prefaced by a dot ‘’.'’ and are picked up by now. 
11212 Be f4 ! Check that no invocation number is present. 
311521 11609 IF .PATHDESCCPTH$B_LOCINVOC) EQL 0 
14386 11610 THEN 
3115 11611 4 BEGIN 
311524 11616 4 INCR I FROM O TO .PRIDTBLC-1] - 1 DO 
13353 11613 5 BEGIN 
311526 11614 § PRID = .PRIDTBLC.1] + TABLEBASE; 
311527 11615 5 If .PRIDCPRID$B_KIND] EQL PRID$K_CONSTANT 
311528 11616 5 THEN 
HT 11617 6 BEGIN 
311530 11618 6 
11531 11619 6 LOCAL 
11336 11869 ? TEMP_NAME : REF VECTOR C,BYTE); | 
111534 11628 6 PATHVECTOR1 = PATHDESCCPTHSA_PATHVECTOR); | 
311535 1162 6 TEMP_NAME = .PATHVECTORI(OJ; 
311536 11624 6 IF CASEQL(.PRIDCPRID$SB LENGTH), 
311537 11952 6 PRIDCPRIDSA_RAMEJ, 
311538 11626 6 . TEMP_NAME(O], 
311539 11627 6 TEMP_RAMEC1)) 
311540 11628 § THEN 
311541 94 BEGIN 
311366 11630 7 PRIMPTR = CREATE_PRID_CONSTANT(.PRID); 
31154 1163) 7 RETURN .PRIMPTR; 
311544 116 ¢ 6 END; 
311545 1163 g 
11368 11634 END; 
31154 11635 5 
311548 11636 4 END; 
311549 11637 4 
311550 11638 END; 
311551 11639 
£11336 11909 If .DBG$GB_LANGUAGE EQL DBGS$K_COBOL 
£11956 1106 DBGSNCOB_PATHDESC_TO_CS(.PATHDESC, PATHSTRING) 
511556 11644 DBGSNPATHDESC_TO_CS(.PATHDESC, PATHSTRING); 
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Ca 


NAL (DBG$_NOSYMBOL, 1, .PATHSTRING); 


! Handle the case where the symbol is not unique. Signal the appro- 
priate error. 


ERSTSK_NOTUNI QUE 


: 11645 

311 11 1 

711 11 

311 11 rk 

311 1164 

M 13? 

711 11 

at 65 1 § saad ~ + pnceates 

11 89 11655 

3) o8 i} 2$ IF .DBGSGB_LANGUAGE EQL DBG$K_COBOL 

711 % 11 28 DBGSNCOB_PATHDESC_TO_CS(.PATHDESC, PATHSTRING) 

311571 1165 ELSE 

11326 13989 DBGSNPATHDESC_TO_CS(.PATHDESC, PATHSTRING); 

113th 1166¢ IF .KIND EQL RST$K_NOTUNIQUE 

311575 1166 THEN 

311576 11664 SIGNAL (DBG$_NOUNIQUE, 1, .PATHSTRING) 

311577 11665 ELS 

311578 11666 SIGNAL (DBG$_NOTUNQOVR, 1, .PATHSTRING); 

311579 11667 

£1188 11869 3 et: 

[1158 11670 

11ea8 11671 ; ' Handle all lexical entities, instruction labels, and Line numbers. 
314388 11676 Zero the FCODE and TYPEID--they do not apply in these cases. 
311586 11674 3 CRST$K_ROUTINE, 

311587 11675 RST$K_BLOCK, 

311588 11676 2 RSTSK_ENTRY, 

311589 11677 RSTSK_LABEL, 

ts sashes 

71159 11680 

11898 11681 PRIMPTRCDBG$B_DHDR_KIND] = .KIND; 

311594 11086 3 PRIMPTRCDBG$L_DHDR_SYM1D0) = .SYMID; 

311595 1168 FCODE = 0; 

11899 11885 reel = 0; 

711598 11686 

atts +4 Be Build a Primary Descriptor Sub-Node for the symbol we have so far. 
£11601 ret: DBGSBUILD_PRIMARY_SUBNODE (.PRIMPTR, KIND, .SYMID, .FCODE, .TYPEID, 0); 
£11608 11891 ~~ 

711604 1169 

311605 11698 ! Handle data items. Here we get the FCODE and TYPEID of the data 
311606 11694 ' jtem and store them in the Primary Descriptor. 

311607 11695 t 

311608 4 CRST$K_DATA): 

aH «4 44 BEGIN 

311611 11699 
311 § 11300 ! Walk the up-scope chain collecting ali data symids above this one. 
311 11701 ' This is in order to handle a case such as ‘X.Y¥.2''. In this example’, 


j 
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sg 
= 


311616 aT 4 ¢ we build a vector of 3 symids: one for Z, one for Y, and one for X. 
11616 11704 INDEX = <1; 

311617 7 5 : WHILE, KIND EQL RST$K_DATA DO 

£11619 11707 4 INDEX = . INDEX + 1; 

3136 : 11708 ; 1F INDEX GEQ DBGSK_PATHNAME_SIZE 

3116 ¢ 11710 4 $0BG HP iasceti cit ee symid stack overflow"); 
3116 11711 4 SYMID_VECTC. INDEX] = .SYMID; 

511624 Wi7i¢ 4 SYMID"= .SYMIDCRST$L_UPSCOPEPTRI; 

311625 11713 4 KIND = .SYMIDCRSTSB_RINDJ; 

it tia a 

11628 11716 

2116 3 tat 4 Now walk back down the symid List, building up the Primary Descriptor. 
511631 11719 SUBSCR_INDEX = 0; 

1116 é 11720 EXPECTED SuBS = 6; 

31163 11721 TOOFEWSUB = FALSE; 

311634 117 é DECR I FROM .INDEX TO 0 DO 

311635 117 4 BEGIN 

311636 11786 4 SYMID = .SYMID_VECTC.1); 

311637 11725 4 

311638 11726 4 ! Fill in the root node SYMID if we are at the top of the List. 
311639 a4 4 ! 

311640 11728 5 IF (.1 EQL INDEX) AND (.PLIPTR EQL 0) 

311641 11749 4 THEN 

311662 17 9 4 PRIMPTRCDBGSL_DHDR_SYMIDOJ = .SYMID; 

i 11644 11732 ? Get the KIND, FCODE, and TYPEID, and build a new subnode. 
511646 11734 4 KIND = .SYMIDCRSTSB_KIND); 

£11808 11788 hehe Gee Lt oe 

311649 11737 4 DBGSBUICD_PRIMARY_SUBNODE(.PRIMPTR, .KIND, .SYMID, .FCODE, .TYPEID, 0); 
511651 11739 4 ! Obtain a pointer to the newly-built subnode. 

311606 11740 4 ! 

311653 11741 4 NODEPTR = .PRIMPTRCDBGSL_PRIM_BLINK); 

311655 11768 4 ! If there was an address override as in P=>X then set a flag 
311038 11744 4 ! saying not to use the SYMID of X for address computations 
31165 11745 4 ' (we stilt retain it for printing, however) 

311658 11766 4 i 

311659 11747 § IF (.1 EQL .INDEX) AND (.PLIPTR NEQ 0) 

311660 11748 4 H 

311661 11769 4 IF .FCODE EQL RST$K_TYPE_RECORD 

11668 11731 é sa NODEPTRCDBG$SL_PNODE_SYMID] = 0 

11665 11738 4 NODEPTRCDBG$V_PNODE_IGNORE] = TRUE; 

1166? 11755 4 ' If we have just attached an array subnode then fiil 

311668 11726 4 ' in the subscript information here. 

111669 11757 4 i 

311670 11758 4 IF .FCODE EQL RSTSK_TYPE_ARRAY 


+ tals ER 1b-Sep-19 4 06:19:13 AX-11 Bliss-32 V4 


0-74 Page 368 
14-Sep-1984 $354 9° 08). 


DEBUG. SRCJDBGPARSER.B 


311671 11759 4 AND .COMPONENTS_IN_PATHNAME 

311076 11760 4 THEN 

31167 11761 BEGIN 

311676 11006 SUBVECTOR = NODEPTRCDBGSA_PNARR_SVECTOR]; 

311022 43502 EXPECTED_SUBS = .EXPECTED_SuBS # .NODEPTREDBG$B_PNARR_DIMCNTJ; 
iNet? 14082 } Loop through the dimensions of the array. 

11878 11967 INCR J FROM 0 TO .NODEPTRCDBG$B_PNARR_DIMCNTJ-1 DO 

311680 BS | 6 BEGIN 

311681 1128 6 : 
211686 a4 6 | Signal an error if mot enough subscripts were supplied. 
311684 11008 : IF (,SUBSCR_INDEX gee -SUBSCR_DESCCO, SUBSCR$B_SUBCNTI) 
311685 11773 7 AND ((.SUBSCR_DESCCO, SUBSCR$B~SUBCNT 4 NEQ 0) OR 
511088 11774 7 .1 NEQ OF) 

31168 11775 § N 

311688 13778 BEGIN 

311689 11777 7 

311690 11778 7 ! We have a problem in that we know we don't have 
311691 11779 7 ! enough subscripts, but we don't know exactly 
211698 11780 7 : how many we were expecting. So what we do here 
31169 11781 7 ! is just set a flag saying to signal the error 
311694 11786 7 ' Later on (after we do know). 

311695 117835 7 ' 

311696 11784 7 TOOFEWSUB = TRUE; 

311697 11785 7 SUBSCR_DESCLO, SUBSCRS$B_SUBCNT] = 0; 

311698 11786 6 END; 

311699 11787 6 , 

311700 11788 6 : Spec tat check for no subscripts specified - treat this 
311701 11789 6 ! the same as if (*,*,...) were specified (aggregate 
311706 11790 6 ! examine). 

31170 11791 6 ' 

311704 11736 6 If .SUBSCR_DESCCO, SUBSCRS$B_SUBCNT] EQL 0 

311705 11793 6 THEN 

311706 11794 6 INCR J FROM 0 TO .NODEPTRCDBG$B_PNARR_DIMCNT] DO 
311707 11795 7 BEGIN 

311708 11796 7 SUBSCR_DESCC.SUBSCR_INDEX + .J, 

311709 11797 7 SUBSCRSV_RANGEJ~= TRUE; 

311710 11798 7 SUBSCR_DESCC.SUBSCR_INDEX + .J, 

311711 11799 7 SUBSCRS$V_ASTER]~= TRUE; 

SHAT; 11800 6 D; 

31171 11801 6 

311714 11806 6 : 

311715 11 6 ! If we were given a range then fix up the sub-node 
1i7t6 11808 ° } to reflect a ranged examine. 

511718 11806 6 IF .SUBSCR_DESCC.SUBSCR_INDEX, SUBSCRSV_RANGE] 

311719 11807 § THEN 

311720 11 4 BEGIN 

311721 11809 7 

3117 4 11810 7 ! Do not allow asterisk unless we are at the 

3117 11811 7 ' bottom level. *** TEMPORARY 

311724 11 1¢ 7 ! 

311725 11815 7 IF (.1 NEQ 0) AN 

311726 11814 : (.SUBSCR_DESCCO, SUBSCRSB_SUBCNT] NEQ 0) 
311727 11815 HEN 


-- 
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if - SUBSCR_DESCE.SUBSCR_INDEX, SUBSCRSV_ASTER] 
SIGNAL (DBG$_ILLASTER) 
SIGNAL (DBG$_ILLRANGE) ; 


Jf NOT .NODEPTRCDBGSV_PNARR_RANGE] 


BEGIN 
NODEPTREDBG$V_PNARR_RANGE) = TRUE; 
INCR K FROM 0710 .J=1 DO 
SUBVECTORC.K DBGSL PNSUB_LBOUND] = 
.SUBVECTORL.K, DBG$L_PNSUB SVALUE]; 
SUBVECTORE.K, DBG$L_PNSUB UBOUND] = 
me .SUBVECTORE.K, BBGSL_PNSUB_SVALUE); 
END; 


ad - SUBSCR_DESCE.SUBSCR_INDEX, SUBSCRSV_ASTER] 
BEGIN 
Check for reversed range. 


IF .SUBSCR_DESCC.SUBSCR_INDEX, SUBSCRS$L_LBOUND] GTR 
» SUBSCR_DESCL.SUBSCR_INDEX, SUBSCRS$L_UBOUND J 


HEN 
SIGNAL (DBG$_INVRANSPEC) ; 


SUBVECTORC.J, DBG$L_PNSUB_LBOUND] = 
SCR_DESCC.SOBSCR INDEX, SUBSCRSL_LBOUND]; 


SF AAANAAIAIA AAPOR PINPONOPNININY SP 


co 
Ft 
MEWN OO OONA VE WUND 0 ODNOAUE WIN O OODNOAUE WN SO OONOUE WN OVONO 


me ee ee a kt a a ae tt ss a = = 2 = = 2 = 2 2 = ss 2 SS YS 
7 at 


ee eh ee ee ee ee ee ee ee ae a a ee a ee a a a a 
SNS NOON NNO NS 09 09 09 09 09 09 09 CD 0 CD CD OD OD INI NNO OD OO OOOO NS 


84 
8 
8 ’ 
8 SUBVECTORC.J, DBG$L_PNSUB_UBOUND) = 
85 : .SUBSCR_DESCC.SOBSCR_INDEX, SUBSCRS$L_UBOUND]; 
85 : 
85 SUBVECTORC.J, DBGSL_PNSUB_SVALUE) = 
89 ones ~SUBVECTORE.J, BBGS$L_PNSUB_LBOUND) 
85 
32 Fill in the subscript value. 
5 ELSE 
BEGIN 
LOCAL 
6 VAL; 
VAL = ,SUBSCR_DESCC.SUBSCR_INDEX, SUBSCRSL_LBOUND); 
86 IF (.VAL LSS TSUBVECTORL.J7 DESL PNSU, | BOUND) oR 
866 weg Yt GTR .SUBVECTORE.J. DBG$L-PNSUB_UBOUND}) 
8 SIGNAL(DBG$_SUBOUTBND, 4, .SUBSCR_INDEX, .VAL, 
6 .SUBVECTORE .J, DBGSL _PNSUB"L BOUND} 
0 , SUBVECTOR -J, DBG$L~PNSUB-UBOUND JS ; 
871 SUBVECTORC.J DB L_PNSUB_SVALUE) = 
872 .SUBSCR_DESCE.SOBSCR_INDEX, SUBSCRSL_LBOUND); 
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ope 18-808- 1382 05:19:18 DEBUG. EROTOBGPANSER 03951 9° 46) } 
ME o¥4 : 
[117 11875 ? ' if we previously got a range, then make this dimension 
NN? ; 1; 1 ? } nto a range also. 
[11790 11878 6 if -NODEPTRCDBGSY._PNARR RANGE] AND 
11798 1; 0 é ieee ~SUBSCR_INDEX, SUBSCRSV_RANGE] 
1179 11881 BEGIN 
311796 1188¢ 7 SUBVECTORC.J ee PNSUB_LBOUND] = i 
311795 11883 7 ; SUBVECTOR .J, DBG$L_PNSUB_SVALUE]; 
11796 11884 7 SUBVECTORE. J pecs. PNSUB_UBOUND] = 
11297 11885 f “an .SUBVECTORE.J, BBGSL_PNSUB_SVALUEJ; 
311799 11889 & : 
31 B00 Mies oon = .SUBSCR_INDEX + 1; i 
1180 11890 : 
11808 11891 ! FILL in the field that gives the count of subscripts. i 
311804 +4 ! Also, unless this is an array slice, then Light the F 
311805 1189 ! EVAL bit which says that subscripting is being done, i 
21188 11338 and tack on a new subnode. i 
311808 11896 NODEPTRCDBG$B_PNARR_SUBCNT] = .NODEPTRIDBG$B_PNARR_DIMCNT]; 
311808 a 44 : i wot - NODEPTRCDBGSV_PNARR_RANGE J i 
711811 11899 6 BEGIN 
tile 11900 6 NODEPTRCOBGSV_PNODE_EVAL] = TRUE; i 
31181 11901 6 i 
etiate 11308 ° Attach a new Primary sub-node for the array elements. : 
311816 11904 6 TYPEID = .NODEPTRCDBGSL_PNARR_CELLTYPE); i 
311817 11905 6 FCODE = DBGSSTA_TYPEFCOBE(.TYPEID); H 
311818 11906 6 DBGSBUILD_PRIMARY_SUBNODE (.PRIMPTR, RSTSK_DATA, 0, j 
311819 11907 6 -FCODE, .TYPEID, 0); : 
311820 11908 6 NODEPTR = .PRIMPTRCDBGS$L_PRIM_BLINK); j 
311821 11909 5 END; | 
it oe wwe : 
311824 11912 4 i 
311825 11918 4 ' If we have just attached a record subnode then fill ; 
311866 11914 4 ! in the component information here. Note that this must } 
3118 11915 4 ' be done after the array case above, to properly handle ; 
118 13918 ? } arrays of records. i 
5118 11918 4 iF (.FCODE EQL RST$K_TYPE_RECORD) AND ; 
311831 11919 ‘ (. COMPONENTS _IN, PRTHNARE) AND 
HT te mci 2 
311835 119 
11886 11924 ; ! If we are not at the bottom symid, then there must be : 
31183 11925 ' a symid for the record component below this one. ; 
11338 119 § ! We need to fill in rhe corresponding record sub-node 
311835 119 ' with the component index. This component index is 
311840 119 : : used by MODIFY PRIMARY to compute logical sucessor/ 
311841 119 ! predecessor. We also Light the “EVAL” bit in the 
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ope 1eageh= 188 3:19:45 «— HNMSNE Bhigscde NeeO- 24s 29 26) 
; Sub=node. 
NODEPTRCDBG$V_PNODE VAL] = TRUE; 
SYMID1 1D vecTt. 1-1) 


= e e 

TYPCOMPLST = TYPEIDCRSTSA_TYPCOMPLST); 

INCR J FROM 0 TO .TYPEIDCRSTSL_TYPCOMPCNT) = 1 DO 
SYMID2 = .TYPCOMPLSTL.J): 


CEE Pe reer 


PPA 


! Use the DSTPTR to determine whether we are 
really looking at the right component. 


LF, SYMIDICRSTSL_DSTPTRI EQL .SYMID2CRSTSL_DSTPTRI 


DONA MEW“ OVOONOUS wr 


BEGIN 
NODEPTRCDBGSW_PNREC_INDEX] = .J + 1; 
EXITLOOP; 


oo woowowvowvownd wooowowowowond WOOOOOOOOOO 


WN | O ODNOA UENO ODNOAUE WN OOONOUES WN 


711 11 

311 11 

311 11 

311 11 

311 11 

311 11 

311 11 6 

311 11 6 

711 11 6 

311 11 6 

311 11 6 

371 11 6 

311 11 6 

311 11945 6 

311 1194 § 

311 1194 

311 11946 7 

311 11947 7 

311860 11948 6 ; 

311861 11949 6 

311866 1195 3 ! We should not fall through to here. 
31186 1195 END; 

311864 11952 4 END; 

311865 1195 END; 

311868 1195 

31186 1195 ! If we have not exhausted the given List of subscripts, 
311868 1195 ' then first check for a substring reference. 

311869 1195 ' We must have seen genech ing tha 

311870 1195 ' Looks Like a ranged subscript ‘(i:j)"’. In order for a 
311871 1195 ! substring to be legal then the data type must 
311876 a 6 } either be text or one of the decimal string types. 
311874 11 PICKED_UP_SUBSTRING = 0; 

311875 11 4 IF ¢.SUBSCR_INDEX EQL (.SUBSCR_DESCLO SUBSCR$B_SUBCNTJ-1)) 
1376 11964 ; AND .SUBSCR_BESCCE.SUBSCR_INDEX, SUBSCR$V_RANGE] 
31187 11965 AND . CR_DESC Bd INDEX, SUBSCRS$V_MARKER] 
311878 11908 4 T .SOBSCR_DESC .SOBSCR_INDEX, SUBSCRSV_ASTER]) 
311879 11967 3 

311880 11968 4 BEGIN 

311881 11969 4 DTYPE = DSCSK_DTYPE_7; 

:1188¢ 11970 4 IF .KIND EQL RSTSK_BATA 

31188 11971 4 THEN 

311884 Bae BEGIN 

311885 1197 SELECTONE .FCODE OF 

311 11974 ET 

31188 11975 RSTSK_TYPE_ATOMIC): 

311888 4 44 | 6 N 

311889 11977 6 DBGSSTA_TYP_ATOMIC(.TYPEID, DTYPE, BITSIZE); 
311890 BP 4A LEN = .BITSTIZE / 8; 

311891 1197 END: 

i1189¢ 11980 CRST$SK_TYPE_DESCR): 

31139 11981 6 N 

311894 119 § 6 DBGSSTA_TYP_DESCR(.TYPEID, DESCR); 
311895 11983 6 DTYPE = ahh DSC$B_DTYPE); 

i118 11984 LEN = .DESCRCDSC$W_LENGTHJ; 

31189 11985 gu 

311898 11986 CRST$SK_TYPE_PICT, RSTSK_TYPE_RECORD): 
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$k_DTYPE_T; 


BEGIN 
LEN © 10060; 


ty long substring. 


! arbitrar 


! Pick Large number to allow 
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SSeaSSeSSES 


T) OR 
NRO) OR 


YPE 
YPE 


YPE 
y the primary to indicate the substring information 


! Modif 


PRIMPTR 
PRIMPTR 


Ye~wewweweww ZZ 


R] = FALSE; 
REF] = TRUE; 


DBG$V_DHDR_AGG 
DBG$V~DHDR~SUB 


IF SUBSEA DESCE.SUBSCR_ INDEX, SUBSCR$L_LBOUND] GTR 


cee cee cel ool gel oe cet ol cee ool 


. SUBSC 


SIGNAL (DBG$ 
PRIMPTR COBGSW 


%x 
THEN 
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. SUBSCR_DE 
IF (¢.SUBSC 


att i ee Ee HO ee ot RE 
FPAAPAPOEAPP PPPOE APSAPHAAPAHSRHAAHOOAAAHH 
Ck eel el eel el el el ee el cel el el el el el cl ee ce ce ee el el el el ee ee ee ee el el el ee ee ee el ee ed el 
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See ee FS FS ee ee SFO FS 8S FO FS FS Oe Fe Fe FS FO FS FS HS FS FS FEHR FS SS FS FS FS Se FSCS ee tS *S*S FS Se *S*S se *S*S*S*S*S tere *Seterarea *S*S*e 


-SUBSCR_INDEX, SUBSCRSL_LBOUND] 


SUBSCRSL_LBOUND), 
INDEX, SUBSCRSL_UBOUND), 


R_INDEX, 


Mmmm 


INDEX, SUBSCRS$L_UBOUND)) ; 


IF .SUBSCR DESC -SUBSCR_INDEX. SUBSCRS$L_UBOUND] GTR 
UX°7FFF 


UBOUND); 
BLINK]; 


X, SUBSCRSL 


* Huet 


WNODOOODODOOOOO0OO0OD0DD OF. FP. DODO DOO OOO OOO GOODOO DONNA 


SSooS035 


DOOM UM FTMNOR. DHOK— UM TN OR. DOO CIMT NOR. OOO CUM 
ra] — Dek eh meh meh aah eh eh meh ohm BY YL a eA ll ll lll ell ll ll) 
COOOCOCOCOCOCOCOOSOOOSCOSOSOOOOCOSCOOSOSOOOSOOOOOOOOoOoOoOOoO 


Ce eee cee cel cel el col el eel eel el oe cee cel el cel eel cee eee eh eel ee coe cel ee eel cee cel oe el el el ee ee el lh cee eh cel ae ee el oe ee ee ee ee a ee el ee el el ee ee 


SOM MUMTMNOPDOOOK— VMTN 


FISFSTAAOS 


g that looks Like a substring 


data type is wrong. Catch that case here and 


We have seen somethin 
an error. 


but the 
signal 
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. SIGNAL (DBG$_ILLSUBSTR) ; 


Vv 


OWT 


ELSE 
! We have seen something that looks Like a substring 
! but the data type is wrong. Catch that case here and 
; Signal an error. 


SIGNAL (DBG$_ILLSUBSTR) ; 
END; 


zs 


eee 


ESSE 


SS 


PPA PLPASIII E 


WIESE ESESSSESSASH 
wn Seat = —[OOONAOUNFS WO OODNOUSE 
=PRININININININININININININIWA NAAN BB EPI 


! 
i 
970 iF .TOOFEWSUB 
971 THEN 
36 SIGNAL (DBG$_TOOFEWSUB, 1, .EXPECTED SUBS); 
er ff. SUSSCR_INDER LSS . SUBSCR_DESCLO, SUBSCRS$B_SUBCNTJ 
31 SIGNAL (DBG$_TOOMANSUB, 1, .SUBSCR_INDEX-.PICKED_UP_SUBSTRING); 
97 END; 
978 
p14 4 5 Anything else we treat as an internal DEBUG error. 
81 9 COTHERWISE): 
ag 0 $DBG_ERROR("DBGPARSER\PATHNAME_TO_PRIMARY 10'); 
TES; 


Return a pointer to the Primary Descriptor to the caller. 
RETURN .PRIMPTR; 
END; 


9 
9 
9 
9 
9 
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9 
9 
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~PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


50 5C 35 45 53 52 41 50 47 42 44 32 tee P.AYR: .ASCII] \2DBGPARSER\<92>\PATHNAME_TO_PRIMARY sym\ ; 
40 49 52 50 SF 4F 54 SF 45 4D 4 13 298 ; 

$8 79 73 20 0341 : 
65 76 6F 20 68 63 61 74 73 20 3 ey 0 ry} -ASCII Nid stack overflow\ ; 
50 5C 2g 45 53 52 41 50 47 42 44 20 a3e P.AYS: .ASCII \ DBGPARSER\<92>\PATHNAME_TO_PRIMARY 10\ 3 
40 49 52 50 SF 4F 54 SF 45 3p 31 35 the : 


.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 PATHNAME_TO_ PRIMARY: | 
“WORD Sa @ R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 : 1141 
5E FEES CE 3 9000 HOVAB = 284(SPS, §P ; 
4 AC 00 0000 MOVL PATHDESC; RB : 1152 
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—- > www ==orwm co | 
“norz a uo —— MN acu 
Arrow => & e ec wv 
oO = eeowr un One DO CO OO aa —~ 
oq@m +s. wn OO eH KF KF K— K— — Ww —~uen ew 
“—Oag- = = ®& owz = = 2&2 2&= @&= ® rr O-2 
w won oa. —_—o 
a MEO*M WF WTO> WP BH PM PH PH HM MH +s LUTY ww 
—-NW~Y ENO ON — - OF OrTOT OT OT OT OT OR NE een j 
—- 2 OVN~NP. CP. SP BRBROCK CK. CLC SP-C BRVBTocr 
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000280F0 F 

000000006 00 
10 AB 

08 AAS 

5A 9 

28 FF AAS 

5 

9 
13 
52 

0408 8F 
03 

00028008 8F 

000000006 go 9 
00007F FF F 3A 
5A 

4 

000280F 8 F 
000000006 00 03 
12 AB 5A 
56 18 AB 

14 AG 01 

55 9} 
4 
OD 

00028F70 8 8F 

000000006 00 01 
12 1¢ AE 

20 «AE 

o 

00028EA0 F 

000000006 00 03 
54 01 A? 08 23 
7E 54 5 
01 

00028EB0 BE 

00000000° o 

00028362 F 
000000006 00 93 
50 B 


; Routine Size: 1614 bytes, Routine Base: 
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7 
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6$: 


7$: 


9$: 
O$: 


1$: 


71986 $3: ii 


AX-11 Bliss-32 v4.0-7 
DEBUG. SRCJDBGPARSER. b3 31 
#164080 
#3, LIBSSIGNAL 
R G(PRIMPTR 
B(R10)CR7 
a(sP)+ R10 
-1(RIOSCR3J, RO 
RO, LEN 
768 
R 
77$ 
LEN 


P*NCRS, R10> 


#3 
#164056 
#5, LIBSSIGNAL 
R16, #32767 
78$ 
R10 
#1 
#164088 
#3, LIBS L 
R16, 18(PRIMPTR) 
24(PRIMPTR), NODEPTR 
a, 20( ) 
PICKED UP_SUBSTRING 
SUBSEA. NDEX 
308 +792 
#1, LIBSSIGNAL 
TOOFEWSUB, 81$ 
en. §uBs 
#167 
#3, at $SIGNAL 
#0, #8, 1(R7), SUBSCR_INDEX 
PICK ED_UP_SUBSTRING, SUBSCR_INDEX, 
#167600 
83$ 
P.AYS 
wi 
#1647 


PRIMPTR, RO 
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(46) 


= att ta 
MN NM—Prrnn 
ss S3ococe 

WW MOAN 


11 
aes IIANE BAG BUMBLE, eae) | 


If incomplete Goye quel tticet ten is allowed in this language 


311398 ! 44 ! ROUTINE RESOLVE COMPONENT (TYPEID, COMP_LIST, SYMID, PRIMPTR, COMPNAME) = 
311994 12081 1 ' FUNCTION 

311995 1 § 1 : This routine is called from GET_RECORD_COMPONENT to resolve 
311396 1 1 : possible ambiguities where the User haS specified X.Y and 

ahh d4 : 8 : : there is more than one record component named Y. 

311999 120 § 1 / This situation arises in C, where membership checking is not 

31 Bey 120 1 ; enforced. Thus in C you can a7 X.Y even though Y is not a 

31200 12088 1 : component in the record given by X. If we find more than one 

31 Bog 12089 1 ' synie for Y, there is a possible amb quity (although if all 
31200 12090 1 ’ of the symids are record components with the same type and 

i one : 04 : } offset, then it is OK). 

312006 1 $98 1 ! A different situation arises in BASIC. Here, we allow A::C to 
312007 12094 1 ! be an abbreviation for A::B8::C (incomplete data qualification). 
31 bos 12095 1 ! * this case, the INCOMPLETE_QUAL flag is Lit. What we do here 
31 1 B98 1 : s call a routine which chases upece e@ pointers to determine 

. ai? ! 044 ' } whether we can get to the given TYPEID from the component SYMID. 
31 oi¢ 12099 1 ' INPUTS 

31201 12100 1 : TYPEID - yeete for the record 

312014 12101 1 ‘ COMP_LIST - List of symids which are record components having 
3 1g013 1 136 1 ! the same name. This list is in the form of 
312016 12105 1 ; a vector of longword, with the first longword 
aisle 12104 1 ! being the count. 

312018 12105 1 : SYMID - address in which to leave the resolved symid, 
312019 121 1 ! if one is determined. 

$6080 121 1 ! PRIMPTR - pointer to the input Primary 

21308) : : : COMPNAME - name of the component 

15958 121 1 ' OUTPUTS 

312024 121 1 : The value TRUE is returned if a unique symid was determined; 
312025 is! 1 ! FALSE otherwise. If TRUE is returned then the output parameter 

2 1$086 31 ' SYMID is filled in. 

312028 121 BEGIN 

31 O68 121 

312030 121 COMP_LIST: REF VECTORC); 

i nt eae 

31 038 13 : 

ast ; ! DBGSGL_CURRENT_PRIMARY = .PRIMPTR; 

15036 15} 

31 121 

31 121 

31 121 

31 121 

31 121 

31 121 

31 121 

31 121 

31 121 

: i 

15 121 


PEW 0 OOO UE WN O OONOU SW O0O@n 


WPA AANINIUNINNNNNN SS HO OU OS SS. 


' 
037 ! (for example A::C in place of A::B::C) then we search the list 
038 ! of candidate components to see if there is a unique one in the 
039 ! given record. For example, if the user says A::C, and there are 
040 ! several components C, but only one belongs in record A, then 
bey that is the one we want. 
be$ } This is the code path taken for Language BASIC. 
045 IF .INCOMPLETE_QUAL 
046 THEN 
047 BEGIN 
048 FOUND = FALSE; 


| 


312049 121 
31 036 121 5 
3120 121 3 
3120 § 121 
3120 12140 
31 bee 12141 
312055 1 196 
31 b28 1214 
it te 
ee 
712061 1 148 
31206 1214 
31 $6¢ 1 139 
312064 12151 
£15066 15188 
31 be? 12154 
312068 12155 
312069 1 138 
312070 1215 
312071 12158 
31 Ors 12159 
31207 1 199 
312074 1216 
312075 i 196 
312076 1216 
312077 12164 
312078 12165 
ft nts 
712081 12168 
£19082 12169 
‘15086 15194 
312085 1 re 
31 pee 1217 
15088 15198 
316088 15199 
312091 12178 
31 038 12179 
ge 
118i 
it tt! 
312098 12185 
312099 121 $ 
312100 121 
312101 12188 


F 11 

16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 
14-Sep-19 4 93:19:45 DEBUG. SRCIDBGPANSER 039; 1 
INCR I FROM 1 TO .COMP_LISTCO] DO 

: The CHECK_UPSCOPE routine determines whether the given 

! record component belongs in the record given by TYPEID. 

! If it does, but there are intervening record components, 

! then the weer must be modified to include the component 

selection for these intervening components. 

iF CHECK_UPSCOPE(.COMP_LISTC.1], .TYPEID, .PRIMPTR, 0) 


If _ .FOUND 
THEN 


Not unique. 
, RETURN FALSE 
BEGIN 
We found one. 
~SYMID = .COMP_LISTC.1); 
Ao ya = TRUE; 


! If we failed to find one, signal that the given component 
! is not a field of this record. Note that we do not return FALSE 
here - returning FALSE indicates an ambiguous field name. 
if NOT .FOUND 
SIGNAL (DBGS_NOFIELD, 1, .COMPNAME); 
Found a unique component - return true. 


RETURN TRUE; 
END; 


This is where we end up for C: we are trying to resolve an ambiguity. 
Check for only one component in List: then there is no ambiguity. 


COMP_LISTCO) EQ. 1 
BEGIN 

-SYMID = .COMP_LIST(1); 
RETURN TRUE; 

END; 

More than one component. 
RETURN FALSE; 

END; 
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ica i 


000¢ 00000 


000000006 0 1 AC D 02 
28 00000000" F t9 OA 
§ 1 Soo 
E 04 1 
10 AC 0D 1 
S As dD 1A 
8 BC42 DD 1D 
E2FB F 4 4 4 1 
f EY 00026 
3; 0029 
0c B¢ 08 BC42 DO 000 
dB 5 08 ; Ps 00 
25 BS £8 000s 
14 AC DD 00050 
1 DD 00040 
00028¢80 F 0D ok 
000000006 00 3 FB 0004 
OE 11 Q004F 
50 08 AC 00 BR02! 
01 60 01 00055 
09 is 0058 
oc BC 04 Ad D is 
50 01 00 0005F 
04 Bones 
50 04 0006 
04 00065 


3; Routine Size: 102 bytes, Routine Base: DBGSCODE + 3FES 


11 
w$ep-1986 93:19:40 


RESOLVE_ COMPONENT: 
-WORD Save R2,R3 
MOVL § PRIMPTR, DBGSGL_CURRENT_PRIMARY 
BLBC - INCOMPLETE_QUAL; 3$ 


AX-11 Bliss-32 ye. 0- 295 
DEBUG. SRC JDBGPARSER .B32;1 


CLRO 
BRB 
1$: CLRL 3s = (SP) 
PUSHL IMPTR 
PUSHL PEID 
PUSHL  a@COMP LISTCIJ 
CALLS #4, GRECK_UPSCOPE 
BLBC , 2s 
BLBS FOUND, 5 
MOVL  a@COMP_LISTCIJ, aSYMID 
OVL #1, FOUND 
2$ AOBLEQ a@COMP_LIST, I, 1$ 
LBS FOUND; 4$ 
PUSHL  COMPNAME 
SHL 
PUSHL #167040 
CALLS #3, LIBSSIGNAL 
BRB 43 
3$ MOVL COMP_LIST, RO 
CMPL = (RO) > #1 
BNEG 
MOVL 4 (RO), @SYMID 
4$ MOVL #1, RO 
RET 
5$ CLRL = RO 
RET 
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H 11 
ARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 385 
Weer 008 1e-80 8-1 382 95:19:48 DEBUG. SRCIDBGPARSER. 03951 . (48) 
i } 3 } 188 ! ROUTINE SAVE _SUBSCRIPTS(PATHDESC, SUBSCR_DESC): NOVALUE = 
3712105 1 191 1 ' FUNCTION 
3121 121 § 1 : When parsing PLI or BASIC Primaries we want to save over the subscripts 
3121 121935 1 : that we see o— the ways This routine picks up subscripts and 
i! 138 : 139 : saves them into the SUBSCR_DESC data structure. 
1211 12196 1 i INPUTS | 
31 Wt 12197 1 ; PATHDESC - A pointer to the pathname descriptor for 
31 ig 12198 1 : the pathname we have parsed so far. 
31211 12199 1 ; SUBSCR_DESC - A data structure containing the subscript 
312114 1 1 : values. 
‘15116 15502 | i qutpurs | 
1 ie ce 
31211 12205 P 
312120 1 Be PATHDESC: REF PTHSPATHNAME 
i121 : 07 SUBSCR_DESC: REF SUBSCRSDESC; 
3121 12209 LOCAL 
312126 12210 DECLTYPE: REF DBGS$VALDESC, ! Pointer to Value Descriptor for | 
312125 12211 ; declared subscript data type 
3121 $ 1 \¢ LA_PTR: REF VECTORC, BYTE), ! Lookahead pointer into input 
3121 1221 LOQ_RANGE VAL, ' Low value of a subscript range 
312128 12214 PATR_INDER, ! Count of pathname components 
312129 12215 SAVEB_RADIX ! Temporarily saved expression radix 
3121 1 1 SUBSCR_COUN ! Actual subscript count in input Line 
; . ! Flag se e current subscript is 
1 131 1221 THIS_SOSSCR_IS_RANGE i Fl t if th t subscript i 
3121 ¢ 12218 : given as a subscript range 
31213 12219 TOKEN, ! Lexical Token 
3121 12220 VALADDR: REF VECTORC,LONG), ! Pointer to integer subscript value 
2 ; 5 : ; VALPTR: REF DBGSVALDESC; ! Pointer to subscript Value Descriptor 
312137 1 
312138 12224 
312139 12225 ! Note how many subscripts we have previously picked up (i.e., in earlier 
312140 1 $ ' calls to this routine, while parsing this same expression). In PL/I, 
312141 1 ! for example, the subscripts may arrive in separate pieces, and do not 
31 | 12228 : necessary have to be associated with the ‘‘right’’ component, e.g., 
31214 12229 ' u(1,2).¥03).2046,5) 
312144 1 ! This routine also picks up substring references in COBOL. Because of this, 
312145 1 ' we set a marker to indicate where we were in SUBSCR bESS when we entered 
31 146 1 § ! this routine. E.g.. in the i rt expression X(1,2,55(1:5) we set a 
31214 1 ! marker to indicate that the 1:5 came in a separate set of parenthesis. 
312148 12234 ! It would be illegal otherwise, so this marker can be used later to 
i 133 ' 5 decide whether to signal an error. 
312151 1 SUBSCR_COUNT = .SUBSCR_DESCCO, SUBSCRS$B_SUBCNT); 
i 138 ' 3 SUBSCR-DESCC.SUBSCR_COONT, SUBSCRSV_MARRER] = TRUE; 
312154 12240 
312155 12241 ' Loop through the subscript expressions for this array reference. Each 
31 126 1 "4 ! subscript is parsed, evaluated, and converted to integer. Its value 
i] 137 43 i is then stored in the SUBSCR_DESC data structure. 
312159 12245 PATH_INDEX = .PATHDESCCPTHSB_TOTCNT); 


11 
yé-Bep-964 02:10:15 YaK=1) @Ligs=52 v4. 0-742 


a 


THIS_SUBSCR_IS_RANGE = FALSE; 
TERMINATOR CODE = TOKENSK TERM COMMA: 
WHILE, . TERMINATOR CODE NEG TOKENSK_TERM_CLOSE DO 


Look for the asterisk. X(*) is the same as X(lower:upper). 
If we find the asterisk then advance the character pointer beyond 
the asterisk and also increment the subscript count. 


LA.PTR = .CHARPTR; 
WHILE .LA PTRCO] EQL.* * DO LA_PTR = .LA_PTR + 1; 
If tALPTREOS EQL ‘s' 


DONAULS WOW ONO 


BEGIN 
CHARPTR = .LA_PTR + 1; 


' Call_the Lexical Scanner to take us past the '," or 

! or ‘J’ or ')*. This will set TERMINATOR_CODE to the 

! terminator that is seen. If we do not see a terminator 
! then signal a syntax error. Also signal an error if 
*:" was the terminator. 


TOKEN = DBGSLEXICAL SCANNER (FALSE, FALSE, 
.SU TERM _TBL, 0); 

IF . TOKEN NEQ TERMINATOR_TOREN 

THEN 


e 


a at a a = od 2 = = 2 2 od 2 = 2 = 2 2 = = a Ls as ot a 
SESSRESSSLSSPERAS BaF S SOS OR ES 


CNAME WN © OONAUES WIN 0 OONOUE Wh 


ee ee el ce ee ee ee ee ee ee ee a ee ee ee a a ee el a a a ce el ld 


ec a ce cee me ee ce ce ce ce ce cm mm me ee ee me ee ee ee a ee ee ce ee ed oe ed dd od dd 


4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
4 
4 
2 eceis 
§ 2 ASCIC STRING: VECTORC2,BYTE); 
§ ASCIC_STRING = 1; 
é 5 ASCIC“STRINGC1) = .CHARPTR(OJ; 
3 ; SIGNAL (DBGS_SYNERREXPR, 1, ASCIC_STRING); 
3 4 If TERMINATOR_CODE EQL TOKENSK_TERM_COLON 
7 § 4 SIGNAL (DBG$_INVRANSPEC); 
8 4 IF .TERMINATOR_CODE EQL TOKENSK_TERM_NONE 
199 4 THEN 
soe 4 SIGNAL (DBG$_MISCLOSUB) ; 
oe ‘ CHARPTR = .CHARPTR + . TERMINATOR_LENGTH; 
4 
; 4 SUBSCR_DESCC.SUBSCR_COUNT, SUBSCRSB_PATH_ INDEX] = .PATH_INDEX; 
05 1 4 SUBSCR_DESCE.SUBSCR_COUNT, SUBSCRSV_ASTER] = TRUE; 
06 § 4 SUBSCR_DESCLE.SUBSCR COUNT, SUBSCRSV_RANGE] = TRUE; 
07 4 SUBSCR-COUNT = .SUBSCR_COUNT + 1; 
08 4 4 END 
09 5 $ 
10 ELSE 
11 4 BEGIN 
18 d 
V6 0 4 ! Call the expression parser to pick up the next subscript expression 
$512 1 4 ' and its value. Note that we set the radix to decimal over this call 
16 2 4 ! and then restore it. Also note that the Expression Parser sets 


11 
GPARSER tbese 1984 02:10: AX-11 Bliss-32 V4.0-74 Page 387 
vou Ve=8eb-1984 13:19:30  EogaUG. SRCIDBGPARSER. 095; 1 9°08) 
} TERMINATOR_CODE and TERMINATOR_LENGTH as a side-effect. 


SAVED RADIX = EXPRESSION RADIX; 
EXPRESSION RADIX = DBGSK_ DECIMAL; 
VALPTR = DBGSEXPRESSION PARSER (FALSE, .SUBSCRIPT_TERM_TBL); 
EXPRESSION_RADIX = .SAVED_RADIX; 


' Check the terminator code. If there was no terminator (the input 
! Line just ended), signal an error. Otherwise we got a comma or clos- 
ing subscript parenthesis and we increment CHARPTR to get past it. 


‘ 
' 
' 
' 
iF . TERMINATOR CODE EQL TOKENSK_TERM_NONE THEN SIGNAL (DBG$_MISCLOSUB); 
CHARPTR = .CHARPTR + .TERMINATOR_LENGTH; 


WN —O DONO US WN O0Oe~ 


We now need to convert the subscript to one of the appropriate 

dtype. We need to set up a target descriptor for the conversion 

cout ine, ve allocate a skeleton descriptor and fill in some of 
e fields. 


' 
' 
DECLTYPE = DBGSMAKE SKELETON DESC (DBGSK_VALUE_DESC, 4); 

2 DECLTYPECDBGS$B_DHDR-KINDJ_= RSTSK DATA; | 
DECLTYPECDBG$B_DHDR-FCODE] = RSTSR TYPE ATOMIC; | 
DECLTYPECDBGSB_VALUE CLASS] = DSCSR_CLASS_S; | 
DECLTYPECDBG$B_VALUE-DTYPE] = DSCSK-DTYPE-L; 
DECLTYPECDBG$W-VALUE-LENGTH] = 4; 
DECLTYPECDBGSL-VALUE-POINTER] = DECLTYPECDBGSA_VALUE_ADDRESS); 


! Finally call the conversion routine. This routine checks that 
the conversion is legal before doing it. 


VALPTR = DBGSEVAL_LANG OPERATOR(DBGSGL_CONVERT_TOKEN, .VALPTR, .DECLTYPE); 
VALADDR = .VALPTREDBGSC_VALUE_POINTERJ; 


SODNA UE WN OOD NA UNE WN 0 ODNAOUES WN OO OONAOULEW 


If the terminator at the end of this subscript grerasston was a colon 
we have a subscript range (for example, ‘‘ARR(1:5,2)"'). We thus set 
the subscript-range flag and save the (ow value of the range, i.e. 
the value we just picked up. If this is the first range in the 
subscript list, we also turn all previous subscripts into renees by 
setting the lower and upper bound for each such subscript to the 
correspond lop subscript value. This in effect defines a new array 
which constitutes a ‘slice’ of the original array. 


TERMINATOR_CODE EQL TOKENSK_TERM_COLON 


PADI BEEBE EEE EW 


o ve 
Cato eS DOO OA UN HOD NONE UO Doe aoe 
PRA E EE F RWW AIRRRURININININININ 4 4 OOOO 


MOTOINITONINIPIPUTY 
o 


ed Ort me me et mee mt meme 


Ee 
HEN 

E THEN SIGNAL (DBG$_INVRANSPEC) ; 
ALADDRL 5: 


Be Be Se Se Se Se Se Se Se Se Bs Se Se Se Se Ge Se Se Se BF FH Se Se FF Se Se Fe Se Se Se Se Se Se Se Se FF Se Se Se Se FHSS Se Se SH Ss Ge Se FHSS Se Se Se Se Se Geese 
ee ce ee ee ee ee ee ce me em ee ee me me ee ed ed ed ed ed ed oe ot 2 2d 2 od = 2 
ee ee em ed ed at ot a = ws ts = = 8 2 ts = = = 2 SS 2 2 ss SS SS Ss SS YS 
AANA. AAI AI.AI AI AIA AIA AIA AAA AAAI NIAAA NIAAA AAAI AANA AIAN AAAI 


woe eee ele ele oo oo oo ot ot ot ot ot ot ot et ot ot et ot et ot ot ot ot ot ot et et et et et et et et et et tt tt tt 


DWONO UNE WO OONO US wit 


PPA ATIANII 


! The terminator was not a colon, so we now have the full subscript 
! specification. Fill the subscript value into the Array Sub-Node's 


Kk 11 
1er$ep-198¢ 18:19:30 EDEeuG. Sac SoeGPaNseR 859; 


! subscript vector. Set up the bounds for an array “‘slice’’ if this 


! or any previous subscript spec 


fication in this array reference 


! consisted of a subscript range. Also bump the subscript count. 


WWANNANWNNAAAWAAAANAAANAA 


AINSI AAA AAA OOO 


OOONA UL WN OOONAUES WO 


oo 


s©.0000 000000000000 
NOUSUN OC OONOUE WN 


3 
woowowovovond 


BEGIN 


If this subscript is specified as a subscript renee. check that 
the first value in the range is not greater than the second. 
Also clear the subscript-is-range flag for the next subscript. 


F_ .THIS_SUBSCR_IS_RANGE 

HEN 
BEGIN 
SUBSCR_DESCC.SUBSCR COUNT, SUBSCRSV_RANGE) = TRUE; 
THIS SOSSCR_1S_RANGE = FALSE; 


Otherwise, set the low range value to be the subscript value. 
LSE 
LOW_RANGE_VAL = .VALADDR(O); 
! Finally fill in the subscript value itself (the start of the 
} range), increment the subscript count, and loop. 
SUBSCR_DESC -SUBSCR_COUNT, SUBSCR$B_PATH_ INDEX] = .PATH_INDEX; 
SUBSCR_DESC sales R-COUNT, SUBSCRSL_LBOUND) = .LOW_RANGE_VAL; 
IF, SUBSCR_DESC ~SUBSCR_COUNT, SUBSCRSV_RANGE 
SUBSCR_DESCC.SUBSCR_COUNT, SUBSCRSL_UBOUND] = .VALADDR(0); 
suasCh_COURt = .SUBSCR_COUNT + 1; 


! End of WHILE loop over subscripts 


H We have picked up all the subscripts within this set of subscript paren- 
! theses. 

SUBSCR_DESCCO, SUBSCRS$B_SUBCNT] = .SUBSCR_COUNT; 

RETURN; 


L832 
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WWAAAIAAAAWIW 
ed ad td ed od 
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oo 

wt 


Ww 
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OFFC 00000 SAVE_SUBSCRIPTS: 
WOR 


08 C2 000 SUBL 
8 AC p MOVL  SUBSCR_DESC, R3 
a 0009 MOVZBL 1(R3), ~SUBSCR COUNT 


A 
woh SHB RRL hh tf 


; ve R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11 


till ER 


00000000' 


00000000' 


C9FO 


04 
05 


000000006 


000000006 


02 


00000000° 


C4B2 


00000000° 


0000 


000 b008 


18-5 Sep-1984 02:1 AX-11 Bliss-32 V4.0-74 
1 ett 95: 19; ¥ DEBUG. SRC IDBGPARSER. 63351 
2 00040000 8F ¢8 14 BISL2 #262144, a(SP)+ 
4 f A 00018 MOVZBL @PATHDESC, PATH INDEX 
F | pO 00021 cum. TIS, suBsta ts =tO0E 
65 00000000° f 0 8 1$: cMPL soon CODES 
0181 031 BRW 7$ 
56 00000000" EF bo 0034 as: MOVL § CHARPTR LA, BTR 
20 6 91 00038 3$: CMPB ss (LA_PTRS, 
4 12 000 ; BNEQ 4$ ~ 
: D6 0004 INCL LA_PTR 
77 1 O04¢ BRB $ 
2A 66 91 00044 4$ CMPB = (LA_PTR), #42 
03 13 00047 BEQL 4 6sS6$ 
0094 31 00049 BRW 9$ 
EF 01 Abd 95E 0004C 5$ V 1(R6), CHARPTR 
7E D4 00054 CLRL = (SP) 
00000000' EF DD 0056 PUSHL  SUBSCRIPT_TERM_TBL 
E 7C 0005¢ CLRQ.  =(SP) 
CF 04 FB 0055 CALLS #4, DBGSLEXICAL_SCANNER 
ge 50 D0 0006 MOVL RO, TOK 
50 00000000' EF. 9E 00066 MOVAB TERMINATOR. TOKEN, RO 
50 6E 01 0006D CMPL TOKEN, RO ~ 
1— 13 90070 BEQL 
AE 07 90 0007 MOVE #1, ASCIC_STRING 
AE 00000000" FF 90 00076 MOVB  @CHARPTR, -ASCIC_STRING+1 
04 AE 9F O007E PUSHAB ASCIC_STRING 
01 DD 90081 PUSHL 
000289E2 8F DD 00083 PUSHL #166370 
00 03 FB 00089 CALLS #3, LIBSSIGNAL 
03 00000000" EF 01 00090 6$: CMPL §_ TERMINATOR_CODE, #3 
0d 12 00097 BNEQ 
00028F08 8F DD 00099 PUSHL #167688 
00 01 FB 0009F CALLS LIBSSIGNAL 
00000000' FF DS OO0A6 7$: TSTL platen CODE 
D 12 OOOAC BNEG 
00028E90 8F DD OO0AE PUSHL 8 
0 01 FB 000B4 CALL Abe LIBSSIGNA 
EF 00000000" EF CO 0008B 8$ ADDL2 TERMINATOR LENGTH, CHARPTR 
4 Oc ¢5 000C6 MULLS #12, C 
6043 59 90 OOOCA MOVE = PATH_INDEX,~ (ROD CRS 
6043 OF O0CE PUSHAB CRODTRS R3) 
3 00020000 8 CB 000D BISL2 #13107 ac sp) 
A04 01 88 0008 1SB2 #1, 2(R £6) 
0000 Obp RW 15§ 
5B 00000000° cf DO OO0EO 98 MOVL EXPRESSION RADIX, SAVED_RADIX 
EF A DO 000E7 MOVL #10, EXPRESSION RADIX 
00000000' ai DD OOOEE PUSHL  SUBSCRIPT_TERM 
D4 OO0F4 CLRL. (SP) 
F FB 00r6 CALLS #2, DBGSEXPRESSION_PARSER 
D FB MOVL RO. VALPTR 
EF B 00 00 FE MOVL  § SAVED_RADIX, EXPRESSION_RADIX 
00000000' €F p 1 TSTL  TERMINATOR_CODE 
D 1 BNEQ  10$ 
9 00028690 F DD 001 : PUSHL #167568 
1 FB 011 CALLS #1, LIBSSIGNAL 
er 00000000" EF CO OO11A 108 ADDL2 TERMINATOR_LENGTH, CHARPTR 
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outine Size: 
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DBGPARSER 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 39 
vOee 10-388-1 $82 1 19538 DEBUG. SRC JDBGPARSER.B32;1 . (49 


i] ? ! te? ! ROUTINE SCAN. QUOTED_STRING(TOKENBUFFER, TOKEN_TYPE): NOVALUE = 

31 § 1 209 1 ! FUNCTION 

31 1 rhs 1 ; This routine scans a quoted character string and returns the found 

312326 12409 1 ; tabi in Counted ASCII format to a caller-provided buffer. It 

312325 1 “19 1 : expects the OWN pointer CHARPTR to point to the quote character at 

31 § 12411 1 : the start of the character constant and it assumes that this in 
31 1 tig 1 ! fact is a valid quote character. It then scans for the closing 
312328 124135 1 ; quote character (which must be the same character as the opening 
312329 12414 1 ! quote), treating doubled up quote characters within the err ios as 
312330 12415 1 , a single gyetes quote character. If the language is set to PL/I, then 

312331 1 $18 1 ' after finding the closing quote, it searches for a "B"' or “'b’’, to 
31 ¢ 12417 1 : determine if the string could be a bit-string rather than a 
31233 1 r18 1 ! character string. If the quote characters are not ''''’, or if any 
312334 12419 1 ; double pases are encountered, then the trailing ‘B" is not 
3 1$332 ; ? » ; searched for. | 
312337 124 § 1 ! If a carriage-return (end of input Line) is found before the closing 
312338 124 1 ! quete or if the string exceeds 255 characters (the longest Counted 
312339 12424 1 ! ASCII allows), an error is signalled. Otherwise, CHARPTR is left | 
1S 3e0 \sts2 1 ! petoting to the first character after the closing quote and the 
312341 12426 1 : string itself is returned as Counted ASCII to the caller's buffer. 
£15305 13058 i INPUTS | 
312344 9h 44 1 ! TOKENBUFFER = A pointer to the buffer in which the character gyring is 
31S 30? 12430 1 / to be accumulated. This buffer is expected to be 256 charac- 
2 1$3¢8 \se3) ! ters long, enough for the longest Counted ASCII string. 
312348 1 433 1 ! TOKEN_TYPE = Address of where to return token's type. 

£15386 13438 i gutpurs 

312351 12436 1 : TOKENBUFFER = The quoted character string is accumulated and returned 
316336 12437 1 ! as a Counted ASCII string to the buffer pointed to by 
18322 rt: ' TOKENBUFFER. 
; } 
312355 12440 1 ; TOKEN_TYPE = Is filled in with either TOKENSK_STRING or 
312356 12441 1 } TOKENSK_BIT_STRING. 

1Se22 sect 1 : 

312358 124435 4 

312359 12444 2 BEGIN 

£15361 ieee 5 p 

i1236¢ 12447 2 TOKENBUFFER: REF vec Toate BYTE], ! Pointer to buffer for char string 

218367 13409 5 TOKEN_TYPE : REF VECTOR {]; ! Longword to receive token's type. 

312365 12450 2 LOCAL 

312366 12451 § QUOTE, ! Quote character which started the 

312367 15636 : current quoted string constant 

312368 12453 2 DOUBLED_QUOTES, ! Flag denotes whether or not there 

312369 12454 ; exist doubled up quotes (‘"). 

312370 12455 TOKENLEN; ! Length of quoted string so far 

312371 1 $28 

£15378 13088 

£15394 12459 ! We pick up the closing quote character (which must be the same as the 

315322 12460 : opening quote character) and then scan for the end of the string. 

312576 12461 ! Doubled up quotes are reduced to a single quote within the string 
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' and a pore Cagerr etary (end of Line) is treated as ean error (quotes 
not balanced Doubled up quotes set DOUBLED_QUOTES flag. 


DOUBLED QUOTES = FALSE; 
QUOTE e 4 SHARP TROOI; 


TOKENL F 
TOKEN. OYPEL 5 = TOKENSK_STRING; 
WHILE TRUE DO 

CHAR TR = afSa*Cat 


SELLE ESE 
SSNS A AA AO AO 


MO ODNOAUE WN 9 ODNA NE WIN 9 ODNAUE WN SO OODNAULS UN —OOONAOUE WP 


» CHARPTR EQL car’ RET THEN SIGNAL (DBG$_MATQUOMIS) ; 
IF <CHARPTRO EQL .QUOTE 


see if the next character is the letter If so, then 
change TOKEN_TYPE to be a bit-string (TOKENSK BIT _STRING) . The 
"B’' is not part of the Length of the string. 


F .DBG$GB_LANGUAGE cat PBG8k PLI 
AND .QOOTE EQL DBG$K_QUOTE 
AND NOT DOUBLED eOUOTES 


N 
 aatita EQL %C°B* OR .CHARPTRCO] EQL %C‘b’ 


BE RRPTR = sFaRee R + 
IF .CHARPTRCO] NE a *oudte THEN EXITLOOP; 
DOUBLED_QUOTES = TRUE; 
END; 
i - TOKENLEN GEQ one Mes i SIGNAL (DBG$_QUOSTRLONG) ; 
398 KENLEN = , TOKENLEN 
399 TOKENGUF FERC. TOKENLEN] =". CHARPTRCO]; 
Sipe END; 
401 
208 
40 If lLangusge is PL/I, then check for a bit-string. 
tee If the quotes are ‘"'’' and there were no doubled up quotes, then 
4 
4 
4 


ee ee eee ee 


+ 
ARAN=SSSLE 


BEGIN 
CHARPTR = .CHARPTR + 1; 
TOKEN, TYPECO] = TOKENSK_BIT_STRING; 


Et ee 


! We found the end of the steing, Complete the Counted ASCII string in 
the TOKENBUFFER buffer by filling in the Length and return. 


TOKENBUFFERCLO] = .TOKENLEN; 
RETURN; 
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007¢ 00000 SCAN_QUOTED_STRING: 


eangsiidlinaeagpibensensitiiivics 
12 
GPARSER 1§- Sep-1984 02:1 AX-11 Bliss-32 V4.0-74 Page 393 
wit 1-Sep-1984 96: 19 i DEBUG. SRC IDBGPARSER -B3 31 9° 49) 
.WORD Save R2 R3. R4,RS,R6 : : 1240 
56 990000006 00 9 9002 MOVAB L1BSS1GN Rb : 
0000000' gf 9E 0000 MOVAB  CHARPT Re At : 
4 ps 001 CLRL DOUBLED QUOTES + 1246 
53 00 83 A 0001 MOV ZBL OCHARPTR, QUOTE t 1246. 
D4 0001 CLRL ae KENL : 1246 
08 BC 0 DO 0001 MOVL STOKEN. TYPE : 1246 
6 B6 orc 1$ INCL + 1267 
0D 00 85 91 00 3 CMPB SCHARPTR, #13 + 1267. 
2? 12 88 BNEQ 2 : 
00028630 8F DD 00024 PUSHL F | 
rx. o1 FB O002A CALLS . L885 1Gua. : 
53 00 B5 08 0 ED 0002D 2$ CMPZV , #8, A@CHARPTR, QUOTE 3 1247 
0D 12 00033 BNEQ 3 
65 06 900 5 INCL § CHARPTR t 1267. 
53 00 B5 08 00 €E 0037 CMPZV #0, #8, @CHARPTR, QUOTE : 1247. 
1F 12 0003D BNEQ 27 ; 
54 01 00 0003F MOVL DOUBLED_QUOTES + 1267. 
OOOOOOFF  &F 52 D1 00042 3$ CMPL TORENT LEN, #255 + 1248. 
09 19 00049 LSS ; 
000289DA 8F DD 00048 PUSHL #166362 : 

} 66 01 FB 00051 CALLS #1, LIBSSIGNAL 3 
“ 52 06 00054 4$ INCL TOK + 1248) 
: 04 BC42 00 BS 90 00056 MOVB @CHARPTR, @TOKENBUFFERCTOKENLEN) 3: 1248) 
er BE 11 0005C BRB 3 1247) 

05 000000006 00 91 OO05E 5$ CMPB BGS$GB_LANGUAGE, #5 > 1249 
if 12 0006 BNEQ : 
27 53 D1 00067 CMPL QUOTE, #39 + 1249) 
17 if 0006A BNEQ ; 
14 54 €8 0006C BLBS | DOUBLED QUOTES, 7$ + 1249 
42 BF 00 B85 91 0006F CMPB @CHARPTR, #66 > 1249 
07 13 00074 BEQL 6 : 
62 «BF 00 B85 91 00076 CMPB = ACHARPTR, #98 : | 
06 12 00078 BNEQ rs ; 
65 D6 0007D 6$ INCL RPTR : 1250) 
08 BC 0D DO 0007F MOVL a3 @TOKEN_TYPE + 1250 | 
04 BC 52 90 00083 7$ MOVB TOKENLEN, OO TOXENBUFFER ; 1250. 
04 00087 RET > 1251 | 


3; Routine Size: 136 bytes, Routine Base: DBGSCODE + 4205 


312428 12513 1 
312429 12514 0 END ELUDOM 
-EXTRN LIBSSIGNAL 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: DBGS$GLOBAL $ NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Pic -At 1entg) 
; DBGSOWN 1344 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
3; DBGSPLIT 13389 NOVEC.NOWRT. RD. EXE, SHR, LCL. REL, CON, PIC-ALIGN(O) 


<o | 


Slasced” tees 17: 4.9 
Lines/CPU Min: 169 
Lowenne/ Crete: 2812 
eneey Used: 1461 pages 
; Compilation Complete 


D 12 
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DBGPARSER 1 AX-11 Bliss-32 V4.0-74 

v04 14-Sep-1984 4 98: 19; ¥j DEBUG. SRC IDBGPARSER. 832;1 

; DBGSCODE 17037 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 

: Library Statistics 

: ecccecee Symbols -<------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 36 0 1000 0:02.9 

; 7$255$DUA28: (DEBUG. OBJ JSTRUCDEF 43231 32 2 4 7 0:0 a 

; 7$255$DUA08: (DEBUG. OBJ JDBGLIB.L32;1 154 49 31 97 62.0 

; _$255$DUA28: (DEBUG.OBJ JDSTRECRDS.L32;1 

3 418 193 29 31 00:00.4 

3 Siiittarys § Bepus G8 eoense -tae7 386 7 14 22 00:00.3 

; _$255$DUA28: (DEBUG.OBJ JDBGGEN.L32;1 150 1 0 12 00:00.3 

; Information: 2 

3; Warnings: 

3; Errors: 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1S$:DBGPARSER/OBJ=0BJ$:DBGPARSER MSRC$:DBGPARSER/UPDATE=(ENHS : DBGPARSER) 
Size: wee 73888 + 14737 data bytes 
Run Time : 7 
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T CORPORATION 
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090 
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009 CONF IDE 


GI 
NF 


